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NOAA 0 OOD NIA NE WIN OOD NIA NEW  O OD NA UNE WI @ O OD NAEP 0 OONOU ES 


PUPP EB BB PEE EE 


~SEP- 


-TITLE VETCLI VAX/VMS UETP Cluster Integration Test 
TOEHE fyb ee Boo: < . . 
»ENABLE SUPPRESSION 


FERRARA KKRAK EAH T HAE AEHEAEHAAAARARAAAAAAAREKATAKAKEReeHAeeeeeeeeeeeReeeeeneee 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL peulene et CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY i" ACCORDANCE WITH THE TERMS oF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Paanereheton’ NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
OORPORAT I Ok NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBI 
SOFTWARE ON EQUIPMENT WHICH I 


LITY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 


IAA RRAAARALALALSAAA LASALLE SL ALES E SESE RE SELES EE EEE EEE EERE ORS SEES EECCA 


+ 
FACILITY: 


This module will be distributed with VAX/VMS under the (CSYSTEST] 
account. 


ABSTRACT: 
This module is the Cluster Integration phase of the UETP. It tests 
that the node from which it is run fits in with all other nodes in 


a cluster, trying those basic functions of a cluster which are 
accessible to typical user programs. 


ENVIRONMENT: 
Because of the requirement that all error messages be displayed at 
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the terminal that is running the UETP, all errors reported by a slave 
° 


tye must be sent to the master process. We have chosen 


master process at the end of the test. The file, ERROR.LOG, 
should automatically deleted at the end of the test. 


Note that the test assumes that DECnet node names correspond to cluster 


node names! 


This program will run in user access mode except when getting a copy 


of VMS's configuration data base. We require the following 
erivtloges ans quotas: 


do that 
y copying (via SPUTMSG action routine) slave messages of other than 
success severity to a disk file, and then rela sng coat file to the 


1 
(1) 
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AUTHOR: Richard Holstein, CREATION DATE: June, 1983 
MODIFIED BY: 


V03-009 RNHOOO0S8 Richard N. Holstein, 05-Jul-1984 
Fix Spelling error in message, add message to warn if deadlock 
detection is turned off. 


V03-008 RNHOO07 Richard N. Holstein, 29-Apr-1984 
Have SCSNODE return the entire af not just 4 chars. Have 
NO_NODE_MSG be a warning, not info message. 


v03-007 wHMO0001 Bill Matthews 14-Apr-1984 
Replace reference to SCSNODEL and SCSNODEH with SCSNODE. 


V03-006 RNHO006 Richard N. Holstein, Weher= 1906 
Use correct error message if a node has no disk DDBs for file 
test. Allow multiple strings to be encoded in the MODE Logical 
name. Test blocking ASTs in a cluster and allow the test to 
SHIBER minimally or not at all if deadlock detection is quick. 


v03-005 RNHOO0S Richard N. Holstein 24-F eb-1984 
Fix SSERROR interaction with RMS_ERROR. Change sentinel Lines 
from slave process log files so that we may copy them into the 
master log without the test controller thinking that they are 
sentinels from the master process. Indent all of slave log 
file Lines copied, including embedded newlines. 


V03-004 RNHO004 Richard N. Holstein 07-Jan-1984 
Be more choose#y about the nodes we'(l allow for lock testing 
and for file testing: ensure that we believe a VMS node is a 
poaher 3 our cluster and that the path to all nodes is in 
good shape. 


v03-003 RNHOOO3 Richard N. Holstein, 22-Nov-1983 
Fix params to DEADLOCK_WAIT error message. 


V03-002 RNHOO002 Richard N. Holstein, 26-Sep-1983 
Fix RET from subroutine which should be RSB. Change trace 
Lopices name to MODE to avoid naming conflict and be compat 
with the rest of UETP. Add SE_NAM so correct SYSSERROR.LOG 
is always SERASEd. 


V03-001 RNHOOO1 Richard N. Holstein, 28-Jul-1983 
Add shared file access, new UETP messages and file access 
debugging info. 
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Declarations -SEP-19 
; -SBTTL Declarations 
; INCLUDE FILES: 


: SYSS$LIBRARY:LIB.MLB for general efinitions 
3 SHRLIBS:UETP.MLB for UETP definitions 


Page (3 


: MACROS: 


Kt frame definitions 


i 

R ags 

I ITMLST item codes 
petion codes 
l 
0 
l 


Od ed ad dd od I I  IOOOD 


BR DOD NA NE WIN SO OO NAME WIN O OD NAN EWN OOD NAME WN OOONOAOU ES UW OUI 


ITMLST item codes 
ags and miscellany 
ck definitions and constants 
ock definitions 
messages 
; Status return 
; SGETSYI ITMLST item codes 
; rt 1/0 database definitions 


noms AH HHH 


DEF 
F 


aageees 


«MACRO $ Define msgs between master and slaves 


BOVIOVOISISCSCSCISTSTSZT RKRPMHKFHHAMHPHPHHAHOASG 
KOOAAAMAAAMAOMD SCommm—~mmm~mmmm 


HELLO : Identify master to slave 
IMOK ; Slave pot correctly set up 
TAKELOCK ; Tell slave to take out a lock 
GOTLOCK 3; Slave successfully took out a Lock 
QUEVELOCK 3; Slave is queued for a lock (deadlock) 
DEADLOCK ; Slave was chosen as a deadlock victim 
0 ACCESS 3; Tell slave to access a file 
0 CONTINUE ; Slave is accessing a file 
3 4 MOVE_ON 3; Section finished, continue with next 
4 ERRORLOG : Slave is sending a copy of SYSSERROR 
0 4 ERRORLOG_ENDED ; Slave is finished sending SYSSERROR 
3 : ~ENDM ES 
; 45 .MACRQ BEQLW ODISPL,?L1 ; Word displacement branch if equal 
4 BNE L1 ; Reverse the sense of the test... 
0 ? U1 BRW DISPL 3 «e-SO that the false passes over 
49 .ENDM BEQLW 
2 -MACRO BNEQW ODISPL,?L1 ; Word displacement branch if not equal 


a a a 8 a a a a ts = 4 a a tk a ss tb a tt a a to ss ts tt 


SOoOOoOOoOoOOOOOOOoOOoSS 


BEQL L 3; Reverse the sense of the test... 
U1 BRW DISPL 3 «e.S0O that the false passes over 
p -ENDM BNEQW 
-MACRO BLBCW SRC .D}SPL. PL ; Word displacement BR on low bit clear 
0 BLBS SRC,L ; Reverse the sense of the test... 
BRW DISPL 3 «.eSO that the false passes over 


ooooo 


o 


-MACRO BLBSW SRC,DISPL,?L1 Word displacement BR on low bit set 
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MSGNAM’ LENGTH = PELENGTH(MSGuAMD 
LIF LT"MAX_MSGNAM_LENGTH = MSGNAM'_LENGTH,-~ 


MAX RSGNARE LENGTH = MSGNAM' "LENGTH 


164 BLBC SRC,L1 ; Reverse the sense of the test... 
5 1 BRW DISPL i ...S0 that the false passes over 
: -ENDM  BLBSW 
183 «MACRO BBCW O08 - BASE -DISPL. 71 ; Word displacement BR on bit clear 
1 9 BBS POS,BASE,L ; Reverse the sense of the test... 
7 sae BRW DISPL ; ..eS0 that the false passes ove> 
0 178 -ENDM = BBW 
8 175 .MACRO BBSW POS ,,BASE ,DISPL,?L1 ; Word displacement BR on bit set 
128 BBC POS,BASE,L ; Reverse the sense of the test... 
8 Vy - BRwW DISPL 3 «+.SO that the false passes over 
900 158 -ENDM = BBSW 
000 18): 
900 18¢ ; EQUATED SYMBOLS: 
000 184 : Facilit nunber definitions: 
00000001 0900 185 MS$FACILITY = 1 
0900 tf ; SHR message definitions: 
0074000 00 188 UETP = UETPS_FA OAT Cuba ae FAC -NO ; Define the UETP facility code 
Beets 000 189 UETPS. ABENDD~ = UETP!SHR$_ABENDD’ ; Define the UETP message codes 
007410 000 190 UETP$_BEGIND = UETP!SHR$_BEGIND 
a 000 191 UETP$_ENDEDD = UET P!SHRS$_ ENDEDD 
007411 4 135 UETPS_TEXT = UETP!SHRS_TEXT 
000 194; Internal flag bits...: 
00000001 0000 195 CLIG_V_DEADNODE = 1 ; Marks a slave node as out of the test 
000 138 ; Kept in one of NODE_NAMES descriptors 
00000000 B88 4 CLIG_V_DEBUG = 0 ; poy yg if running in debug mode 
3 Ke n 
00000001 000 +44 CLIG_V_SLAVE = 1 : Remenbers’ | if I'm a slave or a master 
3 Ke n 
00000002 6 83 CLIG_V_SE_DEAD = 2 : se tif canytawrite to SYSSERROR.LOG 
; Ke n 
00000003 08 CLIG_V_BEGINMSG = 3 ; Set 3 if we've typed beginning message 
04 ; Kept in FLAGS 
5; ...and 6°HBEADNODE® masks: 
0000: : $ CLIG_M = 1@CL1G_V_DEADNODE 
; 8 CLIG_ a = 1€CL1G_V_DEBUG 
Se EEN, STRUCT IME 
00000008 10 CLIG-M~BE EGINASG = 1€CLIG~V~BEGINMSG 
\¢ : Mtoses ions 
\7 -MACRO DEFMSG MSGNAM ; Compute the longest message name 
1? 
i$ -ENDA 
00000000 8 MAX_MSGNAM_LENGTH = 0 : Set up an initial v 
iP MESSAGES ; Set up MAX_MSGNAM LENT final value 


000000¢8 TEXTB_SIZE = 200 : Internal text buffer size 
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"SSEP=1986 90:00:27 EGETHSY. SRESGEYECTo00.man:1 2% (3, 


Maximum length of a node name 

ce unit number 
Data pattern for test files Ist block 
Data pattern for test files 2nd block 
Seconds to wait for cluster $BRKTHRU 
Seconds to wait for DECnet $QI10 
Spaces to indent slave's log on copy 


>? 
TCLIGOO VAX/VMS UETP Cluster Integration Test 16-SEP-1984 AX/VMS Macro V04- p 
Vbacbos Read-Only Data ° ~3eei18be PB daie> FOETNES Sacse VOtTOR. ap. , Pose (8, 
-SBTTL Read-Only Data 
0000 : "BSECT RODATA NOEXE NOWRT PAGE 
PROCESS_NAME : ; Test and image name 
40 eASCID /UETCLIGOO/ 


49 4C 43 54 45 55 tcnntateedl n> y « ¥ 


41 
4 sechteeattnd Name of device from which... 


--the test can be aborted 


SCID /SYSSINPUT/ 


See Sen SS Ss 
wo 


44 
45 SYSSNET: ; Logical name of DECnet Link. 
45 4E 24 53 59 53 0000002A"010E0090" 46 LASCID /SYSSNET/ 5 ceed? we're 8 network process’ 
47 
0 48 REPORT: 3 omc us the type of regular 
54 52 4F 50 45 52 00000039'010E0000' $3 -ASCID /REPORT/ 3 «+-Messages to type to YSSOUTPUT 
51 SHORT: ; if translation of REPORT, says.. 
54 52 4F 48 53 00000047'010E0000' 26 -ASCID /SHORT/ 3 «+.tO type minimal non-error messages 
54 MODE: ; a defined as ‘‘DUMP’’ says to type.. 
45 44 4F 4D 00000054'010E0000' 32 -ASCID /MODE/ 3 «.-tracing messages as we progress 
Ad DUMP : ; paren to match for dump mode... 
50 4D 55 44 00000060'010E0000' 0 33 «ASCID /DUMP/ 3 ..-operation 
60 OPAO: ; Name of device to receive warning.. 
3A 30 41 50 4F 0000006C'010E0000' o -ASCID /OPAO:/ 3; «Of testing on other nodes 
§ TASK: Used to set up DECnet Link.. 
45 54 53 59 53 22 00000079'010 9099" 64 eASCID /**SYSTEST_CLIG’': :"'TASK= sue TCL 1G00°/ 5 ...if we're master process 
4 es 3A 3A £6 47 49 4C 43 SF 54 
0 47 49 4C 43 54 45 55 3D 4B 53 41 
22 30 65 
66 VMS: ; SWTYPE in system block that we want 
20 53 4D 56 rt eASCII /VMS / 
+4 UETCLIG: ; Becomes part of a slave's process name 
49 4C 43 54 45 55 tamara tig” a 5 0 «ASCID /UETCLIG_/ 
71 
72 MASTER: 3 eiths in READ_MSG, WRITE_MSG... 
72 65 74 73 61 6D 00000085'010E0000' i -ASCID /master/ 3 «+.GARBLE_MSG and NEWNAM 
75 NULL: ; Fills in READ_MSG, WRITE_MSG... 
00000000 f -LONG 0 3 «and GARBLE_MSG 
78 BLANK_LINE: ; Puts white space on a page 
000000C7'010E0000' 43 eASCID // 
ei UETPSCLIG: : vere of a test filespec... 
2 eASCID /VETPSCLIG_/ 3 «and part of lock names 


43 24 50 54 45 55 0000006F "2105 909 ee" 


3 
$8 BLOCK: ; Part of a lock RESNAM when using... 


y JC. 3600 


4B 43 4F 4C 42 SF 000000E1'010E0000" i 
38 54 53 45 =4 2€ seceaetscelaintaits «i e? 
F6 

45 54 53 59 53 5B seared ag org 
107 

107 

cee oe oe ene ge 93758988 i 
65 6C 69 66 00000125'010E0000" 1p 

64 72 6F 63 65 72 00000131'010E0000" ; 
41 21 20 53 4D 38 000 8135 01059000" 1 : 
66 20 6E 69 20 72 6F 72 C3 65 20 5 bie 
44 41 21 20 65 6C 69 Oia, 

J J 138 

Gi 7 20 84 6 ge 72°08 Pe G3 70 29 Hh 
22 20 2C 7 Bite 

176 

RPE gM awa uNeT iE 
$$ 65 747 3 6C 63 20 79 6E 61 20 ++ 
1A9 

1A9 

d5 $2 Gb g5 0 $0 stan re or gt a0 O187 
75 6C 8 56 65 a Hy ; $6 6F 20 : 1¢3 
E 65 74 7 +4 

1D4 

98 UF AGF He a Soeanas arog Bie 
75 6C 43 20 50 54 45 55 SF 21 2F 21 OIEF 
POR R EE aE ER i 
CEN SRN BERS : 
C 

C 

#2 GF 9% Gi Fo 85 9°CP 720 Or be 90 ; 
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5 -ASCID /_BLOCK/ ; «+-blocking ASTs 
$ DOTTEST: ; Part of a test filespec 
8 eASCID /.TEST;1/ 
9 
$99 SYSTEST_DIR: ; Part of a test filespec (default) 
91 -ASCID /CSYSTESTI/ 
9 
338 SYSO_SYSTEST_DIR: ; Part of a test filespec (default) 
94 -ASCID /CSYSO.SYSTESTI/ 
95 
38 FILE: ; Fills im RMS_ERR_STRING 
4 eASCID /file/ 
- RECORD: ; Fills im RMS_ERR_STRING 
by eASCID /record/ 
8 RMS_ERR_STRING: ; Announces an RMS error 
0 -ASCID /RMS !AS error in file !AD/ 
04 
308 STATUS_STRING: ; Announces text for a status value 
06 -ASCID /Status returned was, ‘'/ 


; We're a solitary system 


07 
308 LONELY_MSG: 3 
09 /This system is not a member of any cluster./ 


-ASCID 


10 
Hf REBEL _MSG: 
12 


; Tells if Cl occupant not in cluster 
-ASCID / 


/!AS is not a member of the cluster. 


G: ; Warns cluster OPAOs of our test 


13 
314 WARN_OF _T 
15 . \!/Note to Operator:\- 


316 \!/!_ UETP Cluster Integration Test started by node !AD at !%D.\ 


17 
Hf END OF TESTING: ; Tells cluster OPAOs of test end 


ID \!/Note to Operator:\- 


7 
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5 320 \!/! UETP Cluster Integration Test ended by node !AD at !%D.\ 


Ve & 


VSN 
> 

re ee 
FSOO~w 
NOL 
“St 


1 
3 BRKTHRU_ERRORS ; Warnings didn't get to all OPAOs 


és 
: $ 0 
70 6F 20 57 55 21 ta a he 99" § sASCID \!UW operator console!%S timed out on the cluster test warning\- 
Be a eo Bf 22 $1 68 fe * 
SRR SEER ERG ie 
4 4 4 BS 
6E E ; 1 § C0 
20 57 55 21 § 64 of 1 ef ¢ Hi 1 C 324 \!/!_and !UW operator console!%S rejected it.\ 
of 6F 6 8 2 F 1 g 5 70 6F D3 
SOS Te EG Be 
£ 5 
i 3 CLSIODB_FAIL: ; UETPSCLSIODB returned an error 
$3 6C 62 61 6E 55 000 2£8°90590 8" F -ASCID /Unable to read List of cluster nodes and devices./ 
73 69 gf 9 61 6 a 6F 74 A 
72 $3 4 5 f § 2 6F 20 74 D 
sh 20 64 6 GF 35-75 85 OF Se BF 20 BHD 
C 8 
C 39 CLSIODB_SCREWEY: ; Record was not a system block record 
72 65 74 3 49 334°010E0000' C 0 -ASCID /Internal List of cluster nodes is inconsistent./ 
ROSE OL TRC aie se 
73 69 3 6E 6F £3 6E 3? 30 G $2 26 52 
$$ 33 LINK_FAILED: ; SASSIGN failed 
20 64 6¢ 75 6F 43 000095 *Q10E0000" : ~ “"JASCID \Could not set up a DECnet Link to !AS. Please check the\- 
Ga SF 69 gC 90 fu G8 GF 28 45 a4 Ap 
KPSRS TERRE AS Be 
Al 
ee $c 64 0 é9 3 $3 $3 ot } ‘ 31 -? 334 \!/!_UETP documentation for the correct cluster preparation.\- 
6F 68 2 6F 
BORER RR SHBG Be 
‘ F 69 74 61 5 D3 
53 4 0 65 64 6F 4E SF 21 2F DE 335 \!/!_ Node !AS will not be included in cluster lock testing.\ 
SERERERE HES Mh 
65 6F 6C 2 65 74 ; et 3 
SRUBRASRHE te 
1 3) NO_NODE_MSG: ; No nodes found to be testable 
$} 6 $1 é¢ 6F f 6 stg * 041 8 .ASCID \No available cluster DECnet/VAX nodes found for lock tests.\ 
PRE RSREEE ORG Ke 
4 20 68 §¢ F 6C § $3 6F § 44A 


2 73 74 73 65 


lcs 
i 


RARE ETRIE 
20 2C 00000490'010E0000' 


09 OA 0D 0000049A'010E0000" 


$20 1 35 45 a5 gmsoas-aggog 
ELEEEEEELE 
$3 65 88 6F * 5 61 33 ; 26 
POREOSHUE REE 
SRERRRERAEDS 
TTT LEE 
53 59 $8 23 35 6€ $3 e 2 0 $3 5 
45 55 51 54 4F 4E 2D 57 2) 4D 4 32 

2E 22 44 45 55 
$20 $1 55 45 a5 soogoses unsgony 
ReSRRO REGU RE 
6C 69 61 76 61 20 6€ $ 65 6 65 
2E 64 65 6C 69 61 66 20 65 6C 62 61 


SBE, 
Steue 
CREST 
SSBIE 

Sue 
CconnNwu! 
MAE eu 
AAW 
oro 

nese: 
“ww 

SERVES 

NAUVMIADAO 

Wwrton ae 
VEANS 


% Keto 


NSS VRIES 

Ore OPO 
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wn 

VO INNIS 

wow 

NO 
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PAV 
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ON ROo 
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3 
Hf NODE _LIST_MSG: 
& «ASCID 


COMMASPACE : 
-ASCID 


CRLF TAB: 
-ASCID 


WRONG_ENQ: 
~ASCID 


MELLEL ESE 


SOOWOONOUS wiry 


351 


352 


53 
334 NO_LOCK_ENQ: 
55 -ASCID 


5 
3) NO_BLOCK_LOCK: 
58 ~ASCID 


59 
369 NO_DLOCK_SETUP: 
61 «ASCID 


362 


$SE=1986 98:00:89 


$s nodes o test 


; Name t 
/Nodes included in lock tests: !#(AS)/ 


; Separates successive nodes... 
4,4 3 «for NODE_LIST_MSG 


; Wraps a Line for NODE_LIST_MSG 
<13><10>/ / , i - 


; SENQ for master’s lock goofed 
\SENQ of a lock that should have been owned by a process\- 


\!/! running on !AS got an unexpected result (below).\- 


\!/!_The result should have been ‘'SYSTEM-W-NOTQUEUED’’. \ 


; Slave couldn't get a lock it wanted 
\SENQ of a lock that should have been available failed.\ 


; Master can't do SENQ with BLKAST set 
\Unable to set up a lock to check blocking ASTs in deadlock \- 


\test.\ 
; Node died during deadlock setup 
\Setup for deadlock testing may have been broken. \- 


<13><10>\ Please disregard any deadlock error message.\ 
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F of 64 61 65 44 *Q010E0000' 
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TETELEL TAAL 
69 76 20 4C 55 21 C0*010E0000" 
tg gf 4 63 29 8} 33 21 $0 9 74 6 
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WNW SO ne 
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i 
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70 
71 
72 
73 
74 
75 


7 
37 NO_SLAVE_BLOCK: 
78 Cl 


7 
et MEMB_PATH: 


383 


6 


4 
388 NO_FILE_NODE : 


7 
TP Cluster Int ti : t 16-SEP-1984 00:19:0 AX/VMS M v04- P 1 ] 
Data : agthsclos triy bn 8Ep-|9be 13:00:47 t RCIUETCLIG «MAR; 1 ra g 


DEADLOCK_OF F_MSG: 


~ASCTD 


DEADLOCK_WAIT_MSG: 


~ASCIB 


VICTIMS_MSG: 
-ASCID 


DLOCK_ENQ: 
.ASCID 


K 
»ASCID 


»ASCID 


-ASCID 


UETPSY.SRC 


; Someone has d'lock detection disabled 
\Deadlock detection is disabled on !AD.\ 


; DEADLOCK_WAIT was inconsistent 
\Deadlock checking interval is !UL second!%S on !AS,\- 


\!/! but !UL second!2%S on !AD.\ 
; Problem with deadlock detection 


\!UL victim!%S chosen for cluster-wide deadlock detection. \ 


; Slave couldn't queue a lock request 
\SENQ failed to queue a request during deadlock test.\ 


; Slave's blocked lock request failed 
\SENQ got unexpected result for resource for which BLKAST was \- 


\enabled.\ 


; Can't attempt file access 
\Not attempting file test to !AD.\- 


\!/!_Node is not a cluster member or path to it is not enabled.\ 


; ALL SCREATEs failed 
/No suitable disk found to check remote file access on !AD./ 


UET C1600 VAX/VMS UETP Cluster Integration Vest 16S or 1888 98 13:09 AX/VMS Macr Page it, 


Read-Only Data 6-SEP=1 UE TPSY. SREJUETCL 
35 SF SF 80 98 73 8 88 


CLIG 0.MAR;1 


Oonvnrn 
Mowe 
OWwos 
MAAS 
we 
ynees 
eros 
-——O”0o— 


7 
SPEER 
E 44 1 6 > 
A SLAVE_NO_ACCESS: - Can't tt hared fil 
# $5 $3 4 i 29 83 ee , : it - “TASCID \Process on !AS was unable to shire eecees $a 1AS<\ 
7 F 74 6 4 
BARERR EEE BE 
$e 41 21 2 er 4 30 90 
91 SLAVE_EXT_FAIL: 2 € di d block 
Ht 63 63 6F 4 29 : "SE gr gD. . : 3 “ ,ASCID \Process on !AS had trouble reading A hen 4410 ues extended. \ 
61 65 6 ; F 72 74 7 
oe $3 7 5 ef ¢ 7 9 9 83 
6 73 61 e? : C 69 é $0 of 5 
2€ 65 64 6E 65 74 | 95 
9 334 WRITE_MSG: ; DECnet write $Q10 failed 
*010 ’ 94 95 -ASCID /DECnet write of ‘!AD'' message to !AS failed. !AS/ 
c3 
CF 
D 
3 
E 
E 
EE 
A 


NMAWVAO 
moou- 
FEN. 
Troe FFISS 
= 
‘C900 09 0D 00 0 CD 


9 
339 READ_MSG: , _.¢ DECnet read $Q10 failed 
74 65 $ 43 45 44 8E8" oF 98 -ASCID /DECnet read of ‘"!AD’’ message from !AS failed. !AS/ 
41 21 £3 66 gf 64 61 
66 20 6 $i H 5 6D 
6C 69 61 66 20 5 $3 et Y i 
91 399 
91 400 GARBLE_MSG: ; Node replied with trash to our message 
65 $¢ $e 72 61 47 000009 o"gio 00" 091 401 -ASCID /Garbled “‘!AD'’ message or uneupested message from !AS.!AS/ . 
73 65 6D § 3 44 41 21 ¢ 64 09 8 
ry 78 § $f re 6F § 61 09 
§ $3 § D 20 64 4 3 93E 
1 2€ 53 41 21 20 6D 6F 66 ef 336 
9 4 
iH in8 seabird {14 \Timed out DECnet sa16 ort a ne “ toes Pie scsi 
’ H " med out on ne o/from !AS. was cancelled. 
9 


no 
SNS 
SRERE 
EUS O 
MOrNWM 
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wom 
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Morro 
Onronrnrwn 
-—Moof 
We 
Cuan 
S=SS 
uw 
MONTNNO 
m—Offs— 
SEszss 
~“ 
m 


wowrnern 


SSsF 


405 
696 EXCLUDE _MSG: ; Consequence of DECnet error 
4 eASCID <13><10>/ That node is excluded from further tests./ 


sBaz 
wees 
=3 


Oonnu 
wrnoe 
poe 


SFSF 


NSSsS 


a: 
4 
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a8 
Bw 
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aed 


Con 


4 
rt PLEASE _CHECK_MSG: ; Failure while copying slave's log 


ssn 
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Read-Only Data UETPSY. SREIUETCL IG MAR; 1 
g ; 20 08 3 ° ¢ 0 : “ : cP 410 «ASCID <13><10><9>\Please check SYSSTEST:NETSERVER.LOG on that node.\ 
a3 35 Ge a8 SE BR Bo 38 63 Be oe 8 Soe 
SE é 64 6F 6E 5 ; 61 as ‘+444 an 
DA09 = « 412 DEBUG_INTRO_MSG: Warns that we'll report debugging inf 
20 5 63 } ug qr : M0 10 Ded i 218 «ASTID \trace -- Program execution trace messages ore enable ae Pen 
DRG OHRR EOE ET ty 
E 64 § 6C 62 ee 6E § $5 83 pA? oe 
DA47§ «=—6. 4155: DEBUG as MSG: ; Reports debugging info 
20 65 63 61 72 74 AGE*O10E0000" AG? 416 ASTID \trace -- $010 write of iAD message to-fAS-\ 
4 69 7 20 4F 49 51 246 20 3 55 
73 93 60 $9 44 41 4 F 1 
2€ 41 21 20 6F 74 65 67 61 3 at? 
DA79 «=—s-« 418 -_DEBUG_READ_MSG: ; Reports egbugsing { info 
20 65 $3 $1 72 74 1°010 * OA79 9419 -ASCID \trace -- $010 read of !AD message from ! 
os gl 65 72 § 4F 49 51 26 20 2D 8 DA87 
H 3 $3 $8 44 41 21 8 F 
53 41 21 20 6D 6F 72 65 67 : 
420 
cB DEBUG_REQ_LOCK_MSG: ; Master told slave to take out lock 
30 $5 $3 61 8 74 Seat 20 Bb 0° 422 -ASCID™ \trace -- !AS was requested to lock resource 'AS.\ 
2 of 74 20 ¢ ee 4 73 65 ; 1 : 
63 72 75 6F 73 65 72 g e $ gf f 
2E 41 21 20 6 423 
a3 DEBUG_TAK_LOCK_MSG: :; Slave is request tag a lock 
65 63 61 if 74 £°gi0 425 -ASCID™ \trace -- Queuing up a lock for resource !AS.\ 
Hee re RE 
41 21 $8 6 rs § 5 6F g 65 i; g 
639 DEBUG_DLOCK_VICTIM_MSG: ; Slave was/was not selected as victim 
5 $3 e te oR 74 0°010 ° 428 .ASTID \tface -- 'AD was !ASselected as the deadlock victim. 
: 3 } 44 aa 41 2 #5 ; ) 
PREG BEGGS aH 
E 6D 69 74 6 6 20 6 429 
430 NOT_MSG: ; Used to fill in DEBUG_DLOCK_VICTIM_MSG 
20 74 6F 6E 0000085C'010E0000' ? 1 -ASCID \not \ 
& : DEBUG_FILE_MSG: ; Reports debugging info 
434 -ASCID \trace -- Created !AS.\ 


a $5 $2 £5 FE 2b spon grogoney 


435 
636 DEBUG_NOF ILE_MSG: Roger ts debugging info 
20 65 63 61 72 74 00000885'010E0000" 4 


-ASCID \trace -- Failed to create Status was !XL.\ 


Nrro~s 
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nr 
onn™” 
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ne 


3§ DEBUG_NOSHARE_MSG: ; Reports debugging info 
40 -ASCIB \trace -- No available node to share access to 'AS.\ 


44 
beg DEBUG_SHARE_MSG: 


; Reports debugging info 
ASTID : as ¥as"\ 


\trace -- 'AD was able to share access 


444 
445 DEBUG_EXTEND_MSG: ; Reports debugging info 
446 .ASCID \trace -- !AD read additional records when !AS was extended. \ 


ABORTC_MSG PIR: “pee ; SPUTMSG MSGVEC for CTRL/C handler 
-LONG ETPS_ABORTC!STSS$K_SUCCESS 
[ADDRESS PROCESS_NAME 

LONELY_MSG_ PTR: 
-WORD 3,°XF 
- LONG E1PS_TEXT!STSSK_INFO 
ADDRESS LONELY_MSG 

REBEL_MSG PTR: | 
“LONG €1P$_TEXT!STSS$K_INFO 
[ADDRESS BUFFER_PTR 

NO_NODE MSC D's ous ; SPUTMSG MSGVEC for no nodes to test 
- LONG E1PS_TENT!STSSK WARNING 
[ADDRESS NO_NODE_MSG 

NODE_LIST MSG_PTR: | 
: LONG ETPS_TEXT!STSSK_INFO 


-WORD 
[ADDRESS BUFFER_PTR 


3; SPUTMSG MSGVEC for not in a cluster 


; SPUTMSG MSGVEC for node not in cluster 


PEED AMAA 


WO OODNOULS WN -"O0O@on 


LSA 


; SPUTMSG MSGVEC for nodes to test 


Pe ee enna 


SSN NOOO 


NOUS WO O00 
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00000cBC’ tbs 
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oa], See 
O00000BF * CES 
1 
0p6 04 OCE6 
00748089 OCEA 
B85, $8 
QOOOCBC’ OCF 
# 
OOOF ; CFA 
Oat, i 
OOOOOF FS" D 
DOA 
is 
cBc Qs pe 
00000000 “ 4h 
i 
1067 
conn HOR $e 
00000000! , O38 
004 
D4 
10CF 4 
00000000' * 004 


DD4E 


8 NO_DLOCK_SETUP_PT 
7 WOR 


LONG 


«WORD 
- ADDRESS 

9 

9 

9 

9 

9 

9 

9 
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0 
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i] 


DEADLOCK_OFF_PTR: 
1 
1 
1 
1 
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1 
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1 
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4 
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4 
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MEMB_PATH_PTR: 


OOWONAOUES WO 


NO_FILE_NODE_PTR: 
CANCEL_MSG_PTR: 

. WORD 

. LONG 

. WORD 

. ADDRESS 
BLANK_LINE_PTR: 

. WORD 

. LONG 

.WORD 

. ADDRESS 
ERRORLOG_PTR: 

~WOR 4 
. LONG 
WORD 


NOUS WR O OONOUS Wn 


LONG 
ADDRESS 
DEBUG_Q10_MSG_PTR 
. ORD 
LONG 
“WORD 
ADDRESS 
INPUT_ITMLST: 


* 4 
"LONG 0 
MYNODE_ITHLST: 
“ADDRESS 
"WORD. 4 
“ADDRESS 
[LONG 0 
OTHERNODE_ITMLST: 
-OorRD. 4 
ADDRESS 
“LONG 0 


FB OOD NAN EW OC ODNOAUE WIN OO 

7 

> 
o 
oC 
» 
m 
an 
mn 


R: 
AxF 

ETPS_TEXT!STS$K_WARNING 

NO_DLOCK_SETUP 


“XF 
ETPS_TEXT!STSSK_WARNING 
BUFFER_PTR 


BLANK _LINE 


“x1 
ETPS_COPY_LOG_LINE 


BUF FER_PTR 


OXF 
ETPS_TEXT!STSSK_INFO 
6EBUG_PTR 


$_DEVNAM 
R7BUFFER_PTR 
HAR 


SCSRODE ,0 
SY1$_DEADLOCK_WAIT 
bEADLOCK_WAIT,O 


SYI$_ CLUSTER 


CLUSTER MERGER Oe 


"$$Ep=1986 90:00:87 
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; SPUTMSG MSGVEC for deadlock... 


3 «+-Setup problems 


3; SPUTMSG MSGVEC if some node has... 
; deadlock detection disabled 


: SPUnSe Seve f 


3 «eethe node 
n 


or case when can't... 


$s not a cluster member... 
useable path to it 


3 .--0F has no 
: $PUTMSG MSGVEC for case when can't... 


-create tes 


; SPUTMSG MSGVEC for Leaving... 


3; SPUTMSG MSGVEC for co 
3 «ee &@ Slave’s SYSSERR 


Bk:08 


; Note that if we incorporate 
3 «e-into another MSGVEC, the 
; «Of that message becomes a 


G 


as t le on some node 
; SPUTMSG MSGVEC for SCANCEL $010 


“x1 3 «2-8 Blank Line between messages 
ETPS_TEXT!STS$K_SUCCESS 


; SPUTMSG MSGVEC for $Q10 debug msg 


; SGETDVI arg List for SYSSINPUT 
; We need the equivalence name... 


3 «and the device independent info 


: SGETSYI arg List for. 


NODE LENGTH,SYIS_SCSNODE ; ...my node name... 


; .--deadlock search interval 


; SGETSYI arg List for. 
; «Cluster membership 


lsh RAO Ue ctoeer meeoecion Yost gai ARIES SHITE APG Slo nis Th 


0000004aA' "9 00038" 


MYPROC_ITMLST: Bee ag- arg list for... 


FFFFFFFF 402FA200 -CONG + -10000000*5*QI10_TIMEOUT,-1 ; ...read DECnet $010 completion. 
: | must be more tolerant... 
ecause master services several 


1 -WORD _PRCNAM_LENGTH, JPI$_PRCNAM : «eMy process name 
0 - ADDRESS CURNAM, CURNAM_DESC 
«LONG 0 
vesectmnameae y ‘ ; Arg List when calling UVETPSCLSIODB 
00000000"00000000" 9499042" [ADDRESS CLSPTR,O,0 
00 .LONG UIDFLAGS$MSID!UIDFLAGSM 
UIDFLAGSM_DDB! UIDFLAGSM_ UCB UIDFLAGSM. MYSYS 
QIO_DELTA: 3 sieht? time to wait for ordinary.. 
FFFFFFFF DC3CBAO0 LONG -=10000000*QI0_TIMEOUT,-1 ; ...DECnet $010 completion 
SLAVE_QI0_DELTA: ; Delta time to wait for slave.. 


FIVE_SECONDS: ; Nominal time to wait for $Q10 when... 


PPP PPS Be Be BB PEE EWI 


WRI O OONAUES WN O OD NAU EWN OOO NOUES WH OOONOu 


Oooo oCoOoooooo 


h-hh h- 4-44-4444 -A-A-A-A-A- Ah-Ah AA 


COOCWBODDOOOOONNNNAS 


FFFFFFFF FOOSOF80 «LONG +-50000000,-1 ; ..-copying slave's error log to master 
FAO_BUF : ; Fixed desc for misc text strings 
0000010D -LONG TEXTB_SIZE 
00000CC4" -ADDRESS BUFFER 


AOEMM MM AAOOOMM MACON nororom 


DEBUG_FAO_BUF : 
-CONG _TEXTB_SIZE 
- ADDRESS bEBUS BUFFER 


NO_RMS_AST_TABLE: 
LONG 


Fixed desc for debug text strings 


List of errors for which... 


ovo 
>o 
DVPVIVLVLIVPVDVSVSUDUSUSUSVUSISTSTSIST SST 


6 
6 

0000010D 0D96 6 
QOOOOFFB* OD9A 6 

DoE 8 
00000000' 6 RMS$_BLN 3 «+RMS cannot deliver an AST... 
0000 2 6 “LONG RMS$_BUSY 3 «--even if one has an ERR= erg 
00000000° ODA6 § -LONG R DA : Note that we can search table.. 
0000 3. AA LONG RMS$_FAB ; via MATCHC since <31:16>.. 
00000000° ODA 7 -LONG RMS$~RAB S sa “pattern can't be in <15:0>- 
00000014 . 4 NRAT_LENGTH = .-NO_RAS_AST_TABLE 

DB 74 MESSAGE _NAMES: ; Create message names and text 

dB 75 MACRO | DEFRSG MSGNAM ; Define the way we'll name evesoges 

0B 6 MSGNAM® MSG: 

DB 7 “,WORD MSGNAM'_LENGTH 

DB 7 “ASCII /MSGNAM7 

DB 7 -ENDM DEFMSG 

DB 80 MESSAGES ; Name and List messages with text 


lsh 


4 7 
VAX/VMS UETP Cluster Integration Test 16- 
Read/Write Data setbapab : g-§ 
-SBTTL Read/Write Da 
0000 -PSECT RWDATA,WRT,NOEXE ,PAGE 


CLIG_ANNOUNCE : 
.WORD 4, °XF 
LONG ETPS_BEGIND!STSSK_INFO : 


“WORD 
-ADDRESS PROCESS_NAME 
-LONG 0 


| 

4 

16 9 

12 3 EXIT_DESC 
99990090 14 3 LONG 0 ; 

D' 0018 [ADDRESS EXIT_HANDLER 

90009 01 1 9 “LONG 
0000028" 6 3 “ADDRESS EXIT_STATUS 

6 4 598 FLAGS: ; 
00000028 0 4 39 .BLKL 1 : 

0 8 $9 EXIT_STATUS: : 
0000002c 00 6 -BLKL 

02c 60 

O2C 604 QUAD_STATUS: : 
00000034 0 ¢ 60 .BLKQ 1 

90 4 607 ERROR_COUNT: : 
00000038 0 4 60 -BLKL 1 

038 610 ARG_COUNT: : 
0000003¢ 0 : .BLKL 1 

03¢ 13. TTCHAN: : 
0000003E i ¢ .BLKW 1 

O3E 16 DEVCHAR: 3 
00000042 05 .BLKL 1 

$e 19 SCSNODE: : 

0000004a 042 .BLKL 2 

O4A CURNAM_DESC: : 
0000004 -BLKW 2 
00000052" [ADDRESS CURNAM F 


CURNAM: 


.BLKB = PRCNAM_LENGTH 
NEWNAM_DESC: 

-BLKW 2 

SADDRESS NEWNAM ; 


NEWNAM: 3 
-BLKB PRCNAM_LENGTH 


DEADLOCK _VICTIMS: 
~BLKL 1 


0000007C 


DNOUNE WN MOOD NAME WIN SO OO NAM EWN OS OD NAME WN 9 OO NAME WIN O OONOULS UT 


PDEA AAAAAAAAAA AAA AAA AAAAa AA AA AAO 


AWNAANI AAAI AIPOPOPONININPONPINPONIND 


MMWMDOoOOU———frororom > 


SN NA AAAAAOAU 


Ep=1986 0:00:47 CuerPsy.saeduevericdo.mar:1 9° {25 
ta 
EX 


SPUTMSG MSGVEC for begin & end msgs 
This will change at test end 
This will change to new process name 


Exit handler descriptor 


State variables existing over time 
(See Equated Symbols for definitions) 
Status value on program exit 

10 status block for misc sys. svcs. 
Cumulative error count 

Argument counter used by ERROR_EXIT 
Channel associated with ctrl. term. 
Device independent characteristics 


My node name in the cluster... 


Gets my process name length... 
e+-tO become a descriptor 
My process name on entry 


Desc for the process name... 
«--in use while running this image 
My process name while running 


Number of deadlock victim processes 
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V oS Read/Write Data ° ae 98 d0:47 LOE TPSY .SREIUETEL1G00.MAR: 1 ” (4) 
7C 39 DEADLOCK_WAIT: ; Deadlock search interval in seconds 
00000080 o7¢ 640 TBLKL. 1 . 
4 DEADLOCK_COUNT: ; Count of processes participating in... 
00000084 4 -BLKL 1 3 «+8 deadlock, but who have not yet... 
8 4 44 3; «caused a blocking AST for our... 
8 7 oe 3 «+-lock used for communication 
084 eh DEADLOCK_LOCKID: ; Lock id of the lock used for... 
00000088 $ 4 oe8 -BLKL 1 3 «+-eblocking AST communication 
8? , 929 DEADLOCK_MSG_TIME: ; Delta time to wait to hear that... 
00000090 aia 8 -BLKG 1 3 «.+.some process is a deadlock victim 
0090 38 CLUSTER_MEMBER: ; Receives TRUE/FALSE if a VMS node... 
00000094 BoeE o2¢ mae. 4 i «+eiS a member of our cluster 
99 $28 MASTER_NODE DESC: ; Simplifies using MASTER_NODE... 
00000006 0094 65 LONG NODE_LENGTH 3 «ein SFAO strings 
nr $09 838 MASTER wore acne ter: Na f ter node. This gets 
: ; Name of master e, ets... 
72 65 74 73 61 6D Bons 269 “ ASCII /master/ 3 «--overwritten when HELLO Se read 
DOA2 066 CLSPTR: ; Pointer to local copy of cluster db 
OO0000AA Baas 96 -BLKL 2 
OOAA 665 NODE_CHANS: ; List of DECnet channels to... 
000002A8 OQOAA 666 -BLKW MAX_NODES 3 «nodes on which we have slaves 
000002AA O2AA rots -BLKW 1 ; Guaranteed List terminator 
O2AA 669 NODE_NAMES: ; List of descriptors to names of... 
QOOO0AA2 O2AA 670 -BLKQ MAX_NODES 3 «»-nodes on which we have slaves 
OAA 671 ; The second word of each descriptor... 
Oas or¢ 3; ...carries flags. No flags set... 
OAA 67 3; «(valid string descriptor) is the... 
Bans ere 3 «normal state 
OaAg 676 MESSAGE _BUFFER: ; Messages we send to slave nodes... 
OOOOOCBC OAA 677 -BLKB 2*TEXTB_SIZE 3 ..-OF messages we receive from master 
OcBC 86678 ; The size is to allow us to use... 
OcBC 679 3 «this buffer to send a slave's... 
34 ? ? 3 ..-copy of SYSSERROR to the master 
p0000cco tbe ° § CUFFER PTR: ‘ ; Variable desc for misc text strings 
, ADDR FFER 
enemas Ete 3 ¢ BUFFER: ne ; Buffer for miscellaneous text strings 
QOOOOEDE OCC4 6 § -BLKB 2*YEXTB_SIZE ; The size is to allow us to use... 
EDE 6 3 ..ethis buffer to send a slave's... 
44 ? 8 3 ...copy of SYSSERROR to the master 
p000e2 44 ? sinnian dit , ; Variable desc for status code strings 
OOO0EE6" OEE $3 -ADDRESS STATUS_BUFFER 
EE 95 STATUS_BUFFER: 
OOO00FF3 cE o3e -BLKB TEXTB_SIZE 


voasb05 


VAX/VMS UETP Cluster Integration Fost e Haat 9 98: 13:09 payee Macro V04- 


Read/Write Data 


FF3 696 DEBUG_PTR: 
SO000FF7 FES) 69 -BLKL 1 
FFB" OFF 98 ADDRESS DEBUG_BUFFER 
FF 99 DEBUG_BUFFER: 
0000142F OFF 00 


-BLKL TEXTB_SIZE 


UETPSY.SRCJUETCLI 
; Variable desc for debug 


0 Page 18 
Sb0.man:1 2% 18, 


text strings 


U 
V 


Cc 8 
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Vv 8 RMS-32 Data Structures 8 a isety 7 98: b0:23 LOETPSY. SREIUETCL IG 0.MAR;1 . (5) 

142F 4 ; -SBTTL RMS-32 Data Structures 

1? F ? -ALIGN LONG 

12 f 5 SE_FAB: sr an ; Used for copy of slave's SYSSERROR 

14 § FNM = <SYSSERROR.LOG>,- 

14 3 NAM = AM,- 

14 7 FAC = <POT,GET>,- 

14 710 MRS = 2*TEXTB_SIZE,- 

1 0 ay ORG = SEQ 

14 0 8 SE_NAM: SNAM- ; Used for copy of slave's SYSSERROR 

14 714 RSS = NAM$C_MAXRSS,- 

1788 af RSA = SE_FICESPEC 

14E0 9 SE_RAB: ; Used for copy of slave's SYSSERROR 

14E0 £18 $SRAB- 

13 ? at FAB = SE_FAB 

1524 721 SE_FILESPEC: ; Used for copy of slave's SYSSERROR 
00001623 12 4 f § ~-BLKB NAMSC_MAXRSS 

16 : 724 RF_FAB: ; Used to create files on cluster nodes 

16 725 $FAB- 

16 726 FNA = RF_FILESPEC,- 

16 727 FOP = <S0P>,- 

13 728 FAC = <PUT,GET>,= 

16 729 NAM = RF_NAM,=- 

16 730 SHR = <POT,GET,UPI>,- 

16 731 MRS = TEXTB_SIZE,- 

1 if ¢ ORG = SEQ 

167 734 RF _NAM: ; Used to create files on cluster nodes 

167 735 SNAM- 

167 ra8 RSS = NAMSC_MAXRSS,- 

167 re RSA = RESULT_FILESPEC 

16D 739 RF_RAB: ; Used to create files on cluster nodes 

16D 740 SRAB- 

16D 741 FAB = RF_FAB,- 

16D oe ROP = <NC[K>,- 

16D 74 RSZ = TEXTB_SIZE,- 

16D 744 RBF = BU = 

1603 745 USZ = TEXTB SIZE,- 

190 8 UBF = BUFFER 

1717 oe RF_FILESPEC_DESC: ; String descriptor for error messages 
000171B 1717 74 -BL 
000171F ° 1718 £39 «ADDRESS RF _FILESPEC 

171F 73¢ RF _FILESPEC: ; Holds filespecs for test files 
0000181€ 4 f ? -BLKB NAMSC_MAXRSS 

HE 735 RESULT_FILESPEC: ; Receives resultant test file filespec 
0000191D 181E 756 -BLKB NAMSC_MAXRSS 
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a 


-SBTTL Main Pro 


91 ram 
0000 133 "PSECT _UETPSCOBE EXE ,NOWRT, PIC, SHR, PAGE 
761 DEFAULT DISPLACEMENT ,WORD 
eS ss 
fee $ The VETP Cluster Integration test will test the cluster functions 
65 ; available to typical user applications. It relies very heavily 
0 £08 ; on DECnet. 
£08 : The node from which the test is originally run is called the master 
8 3 node. VMS nodes in the cluster which run the test at the request of 
770 ; the master node are called slave nodes. The main flow of testing is: 
B80 771 ; If we are in a cluster then 
00 ak 3 If we are the master process then 
Boh 773 ; Get a List of VAX cluster nodes. Warn each of testing 
0 774 ; Initiate a DECnet Link to each VAX cluster node 
0000 775; Start a slave task on each such node 
0000 £76 $ Have each node take out a lock (no deadlock) 
0000 777; Have each node take out another lock (to check deadlock) 
0000 778; Check that file access works to all cluster nodes 
0000 779 ; Terminate slave processes 
4 £0 ; Send an end of testing message to all cluster consoles 
3 se 
0000 ree : Complete the DECnet Link to the master process 
0000 783; Take out a lock (no deadloc 
0000 784; Take out another lock (in order to check deadlock) 
0000 785; Wait to be told what to do next 
464 786 ; Exit the test 
000 787 ;- 
0000 788 
0000 O00 44 ENTRY UETCLIGOO,“*M<> 3; Entry mask 
6D 1C15°CF DE 000 791 MOVAL  SSERROR, (FP) ; Declare exception handler 
sit a SSETSFM_S ENBFLG = #1 ; Enable system service failure mode 
010 79 STRNLOG_S LOGNAM = SYSS$NET,- ; Are we a slave or a master process? 
319 794 RSLBUF = FAO_BUF 
50 0000°8F B81 00 795 CMPW #SS$_NOTRAN,RO 3 If SYSSNET is undefined... 
$3 13 002C 796 BEQL 3 .e-then we're a master process 
0024'CF 2 C8 00 797 BISL2 M#CLIG_M SLAVE,FLAGS ; Otherwise, mark us as a slave... 
0 798 SCREATE FAB = SE FAB,- : ...and set up our copy of SYSSERROR 
9 799 ERR = RMS_ERROR 
4 0 SCONNECT RAB = SE -RAB,- 
4 1 me ERR = RMS_ERROR 
31 SDCLEXH_S DESBLK = EXIT_DESC ; Declare an exit handler 
of 5 SGETSYI_S ITMLST = MYNODE_ITMLST ; Get my node's node name 
0053°CF 96 90 3 1 $ LOCC 20 .aHODE LENGTH, SCSNODE ; Ensure that... 
61 50 2 00 8F C Ad MOVCS #0,#0,4°R/ /,RO,(R1) 3 .eethe name is blank filled 
7 § SGETJPI_S ITMLST = MYPROC_ITMLST ; Find out my process name 
9098 CF 7E 9 ? MOVAQ UETCLIG.R 3; Define a new one... 
ff 43 9 1 MOVAB SCSNODE,R 3 «.-assuming we are a slave... 
OA 0024'CF 1 5 9 \¢ 8B #CLIG_V_SLAVE,FLAGS,20$ 
6 "CF «=67E «OOOA 1 MOVAQ PROCESS "NAME, R6 : ...but different... 
‘CF 3 869E A 14 MOVAB MASTER+8,R7 3 ..eif we're master 
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Main Program =SEP=1 
15 208: 
58  O069'CF 9 18 MOVA NEWNA + ae ; We'll use the new one... 
68 08 ag : 1 MOVC &R RG) yatR D iged 
63 $ 18 MOVC STENG TAS fh), (R3) fin. 
0061'CF 3 A 1 suey RBS 4 *NEWNAM_D sc’ § ews 
C 0 SETSFM_S ENBFLG = # 
CA SSETPRN_S PRCNAM = NEWNAM_DESC ; ...while running this test 
D5 § SSETSFM_S ENBFLG = 
OOOC'CF O061'CF 7E D OVAQ “NEWNAM_DESC CLiG, emannes Use process name in sentinel msgs 
: 3 SPUTMSG_S 5 Reet eS = cu : bive @ veginning message 
0024'cF O08 C8 xs § BISL2 M#CLIG_M Naz Sea? FLAGS ; Set flag so we don't print it again 
FD 8 STRNLOG_S cone = MODE- ; See if the user wants tracing info 
OOFD 9 LBUF = FAO_BUF 
50 0000'8F *} 113 ? oe 4s _NOTRAN,R : If MODE Logica! name defined... 
005C DF O2ia BF 39 11 § MATCHC MPa 3 «eas ‘DUMP’... 
OCC4'cF 021 at 833 ees agetEXTB. size, BUFFER 
0024'CF Ol cB 012A 5 BISL2 #CLIG_M_ DEBUG,FLAGS ++-remember that user wants trace info 
OFF3°CF OAOS'CF 7D O12F 6 Mov DEBUG mL Msc, DEBUG_ pth ;"Gern the user... 
A 30 01 § BSBW GIVE_BEBUG_ASG --if there will be extra messages 
OFF7"CF OFFB'CF ODE 0149 $ 308 MOVAL DEBUG BUFFER: DEBUG_PTR+4 ; Reset standard pointer 
14 t Races 
8138 41 SGETDOVIW_S hairy, = SYSSINPUT,- ; Get the name of the device... 
140 $s ITMLST = INPUT TMC ST «= “i «+ewhich may abort the test 
0140 4 EFN = #SS_SYNCH_EFN 
140 44 10sB = aUAD STATOS 
49 002C'CF E9 15¢ 45 BLBC QUAD_STATUS,40$ oid CTRL/C handler if any error 
43 OO3E'CF 00" €1 161 rm BBC S*#DEV$V _TRA, DEVCHAR 408’: ABR if SYSSINPUT is NOT a terminal 
+ 4 ? SASSIGN_S + al = BUFFER. R_PTR,- ; Set up for CTRL/C AST handler 
= 
i$ rt $Q10W_S a = TTCHAN Enable CTRL/C ASTs 
7 30 FUNC = #108 $ SETMODE! 108m" CTRLCAST,= 
= 
+ +4 26 608 SPUTMSG_S MSGVEC = ABORTC_MSG_PTR ; Tell user how to abort gracefully 
1AA 8540COti~*™” 
1AA 55 IFCLSTR 50$ ; BR if we're a cluster member... 
1B 2$ SPUTMSG_S 8 Rsevec = LONELY MSG_PTR,- : ...else say there's no testing 
18 5 ACTRIN = SE_COPY 
29.—=C «11 af 23 508 BRB 70$ 
17 0024'CF gt 1¢7 60 ; BBS ect te Vv SLAVE. FLAGS,60$ ; BR if we are a slave process 
D 1¢ 61 BSBW OURCE_U 3: Let systems know of our test 
FF 109 66 BSBW ort NO 5S 5 collects nodes in cluster, start DECnet 
00 1D BSBW START_TALKING 3 to the other node 
CA 108 64 BSBW CHECK_LOC : See if locks are cluster visible 
D 1D 65 BSBW CHECK DEADLOCK : See if deadlock detection works 
D 1D $6 BSBW FILE_ACCE : See if we can get to cluster files 
B 1DF BSB WIND. OWN ; Terminate slaves and clean up 
Cc 1 ie $3 60s BRB 70$ ; Exit successfully 
35A 1E4 " « BSBW = SET_UP_SLAVE : Set up the DECnet Link to master 
SEF 6 1&7 4 BSBW TAKE_OOT_LOCK ; See if locks work in the cluster 
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SEXIT_S CODE = = 


#SS$_NORMAL! STS$M_INHIB_ 
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; Participate in a deadlock 
; Access a file in use by master process 


; Exit with a successful status 
MSG 


22 
(6) 
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ves ANNOUNCE_US = Let Systens Know of Our Te raat ri 98:08:23 UETPSY.SRCJUE T7680 .MAR: 1 - 3, 
~SBTTL ANNOUNCE_US = Let Systems Know of Our Test 


3++ 

; FUNCTIONAL DESCRIPTION: 

; Get the names of all the nodes in the cluster. 

For record npoowns purposes, it's a good idea to let other systems in 
the cluster know that we're about to acers testing. Put a eessege to 
the operator's console on each VAX node, itself a test of SBRKTHRU. 


; IMPLICIT JNPUTS: 
; VMS's List of cluster (VMS and non-VMS both) nodes 


IMPLICIT OUTPUTS: 
; Copy of our node's view of the cluster 


SIDE EFFECTS: 
; message to all console terminals in the cluster. 
PO space expanded to include output from UVETPSCLSIODB. 


a — 8 — a 4s — 4 2 2s — 2 _» 2s bd 2» 4 4 2 


SO AD Os ODO ODODODLML AO OSO-FO> FO -NOVUVCVTVVVTOVTVTVTVCVVTVVTVVTTCTCT"C0NUVTCTC9O 1 


CE_US: 
SCMKRNL_S ROUTIN = UETPSCLSIODB,- ; Form a List of other cluster... 
ARGLST = CLSIODB_ARGS EE ar soy and SCS peripherals 


WOO 00000090900 09 09 00 09 0D CD CD CD CD CD CD CD CD CD CD OD ODOD 
ooowowowowovowo >] 
DOONAN O ONO EW OOD 

; Bete Se Oe Se Ge Ge Se Se Se Se Se Se Se See 
f 
t 


24 E8 1 BLBS RO,1 : the List was formed correctly 
0D PUSHL RO 3; Save the error status 
1BC3°CF 01 FB CALLS #1,STATUS_TO_TEXT 3; Get the text for it 
OEDE "CF oF PUSHAL STATUS _PTR ; Explain what went wrong 
00741134 8F OD PUSHL #UETPS TEXT! STSSK_SEVERE 
O2F3'CF OF PUSHAL C SIODB_FAIL 
1 OD PUSHL 
00741134 8F bp PUSHL #UETPS_TEXT!STSS$K_SEVERE 
1BCD 1 BRW ERROR_EXIT ; We can't continue 


10$: 


50 0042°CF ODE SCSNODE ,RO 
TRSTR 


Ot ed a td od od I I IOOOO 


4 
905 
8 
5 
911 
313 
9 MOVAL 
914 SFAO_S CTRSTR = WARN OF_TESTING,- 
915 OUTLEN = BUFFER _PTR,- 
9 $ OUTBUF = FAO_BUF,- 
9 = #NODE_LENGTH,- 
9 : P = RO,- 
9 F =# 
9 9 SBRKTHRUW_S - ; Warn other nodes by a console message 
3 MSGBUF = BUFFER _PTR,- 
: EFN = -#SS_SYRCH_EFN,- 
9 SENDTO = OPAD,- 
924 SNDTYP = #BRK$C_DEVICE,- 
925 FLAGS = #BRKSM~CLUSTER,- 
6 TIMOUT = #BRKTHRU_TIMOUT,- 
10SB = QUA STATUS 
OA "CF =6O«E9 BLBC QUAD_STATUS, 20 ; BR if there was any error in sending 
‘CF «GOAN ADDW3 QUAD_STATUS+4,- ; Did all nodes see the warning? 
51 "CF QUAD-STATUS#6,R1 
4c 13 pie BEQL $ ; BR if so - all OK 
7E ooze cr 3¢ ‘ § MOVZWL QUAD_STATUS,-(SP) ; Get the text... 
1ec3'CF 6001S FB CALLS #1,STATUS_TO_TEXT > ..-associated with any error 


vou-b08 ANNOUNCE a atta te 'G-SEP=19be $O:00:e7 EWerPsY. seeduerericoo.man;1 29° 2%) 


2] pO Rg cr #f F MOVZWL QUAD_ Ut eg 4 
2 "CF ¢ 4 : MOV Mt gi D- S+6.R 
$FAO_ ciastTe = = BRKT HRU pERRORS. - ; Form a message 
T Ay = 
TBUF = FAO etree 
4 & = R1,= 
4 P = R 
OEDE'CF ODF B0 & PUSHAL STATUS. PTR 
1 OD B4 4 PUSHL 
00741132 8F DD B6 44 PUSHL avers. TERT ISTSOR ERROR 
CBC'CF OF B 45 PUSHAL ys 
O00F 1 0D C 348 PUSHL #*X 601. 
41132 8F DD C 4 PUSHL #UETP Mag PEE gee ERROR 
1DAD'CF 06 FB cc 308 CALLS #6, ERROR_ ; Let users know of any problems 
Di «949 30S: 
05 D1 =6950 RSB 


voa-b08 GET NODES = Collect the S eae Fett aen ESEPCTSRS 90:38:29 HUETPSY.SRESUEYCL I600.man:1 88° % 


4 ¢. “tah -SBTTL GET_NODES = Collect the DECnet/VAX Nodes in Our Cluster 
D 4 ; FUNCTIONAL DESCRIPTION: 
Dd : Form descriptors to the names of the VAX/VMS nodes. See if we 
D § : 3 running DECnet to those nodes by establishing a Link and starting up 
D : task on the node. In order that we may recover rs not being able 
D 8 $ to eecney © a node or nodes, turn off System Service failure mode 
. ; and explicitly check for errors. 
D IMPLICIT INPUTS: 
. ; e list of cluster nodes from UVETPSCLS10DB 
D 4: : IMPLICIT OUTPUTS: 
D : NODE _CHANS has a cheneet number for if. those nodes to which we were 
D 2 $ 3 able to establish a DECnet 
> $6 : NODE _NAMES has a descriptor to all ene names of the VMS nodes. 
D $68 : SIDE EFFECTS: 
D 9 y 3 DECnet Links to and remote tasks on VMS cluster nodes. 
4 4 : Warning messages if we were unable to establish a Link to such a node. 
B18 i 
D 975 GET_NODES: 
26 OOA2'CF 0 D 378 MOVL CLSPTR,R6 ; Used to loop through system records 
AA‘ CF E D 97 MOVAW NODE _CHANS, R7 ; Used to loop through channel words 
8 O2AA'CF E of 44 108 MOVAQ NODE_NAMES, “RB ; Used to loop through name descriptors 
01 91 O2E1 980  — CMPB #ULDSK SID_RTYPE : Is this a system block record? 
06 A6 E3981 GNRCSB_TYPE(R4) 
11 13 E 9 § BEQL ; BR if it is 
032c’ ' +4 44 4 Z AD oy ; SIODB_SCREWEY 3; Die nolstia if it is isn't 
00741134 8F +4 : 2 5 pusur ETPS_TEXT! STSSK_SEVERE 
18 1 F 9 $ ie BRW ERROR_EXIT 
11 A643 =©0099°CF D1 : 389 : Haas VAS ,UIDSIDST_SWTYPE(R6) ; is sie 3 —— node? 
3 $s not 
07 a6 oO 5 991 TSTL UIOSIOSL_ PBFL(R6) : Have we any path to the node? 
336 BEQ 60$ BR if not - we can't test it 
68 1A6 98 99 oh ted} _NODENAME (R6) crb) ; Save the length of the name... 
2 Ag DE oF 934 MOVA DS1DST TINODENAME+1(R6),- ; ...and its address 
if 336 SSETSFA_S ENBFLG = #0 Turn off SS errors... 
1D 99 SGETSYIQ.S EFN = ass SYNCH EFN,=- : vac Le check ing to see... 
1D 9 TosB = QUAD STATOS,- ; ...if this node is in our cluster 
1D ITMLST = OTHERNODE. IfMLst.- 
3 1 3 BANE = (RB) 
52 50 00 4 1 ; Preserve the return status. 
7 1 SSETSFM. § EN SLs = #i ; ..-while resuming SS error checking 
A 52 : 1 BLBC “R2 3 ; BR if t js not a member 
95 0080 CF 9 1 BLBC QUAD $ : BR if i is no 
9 ‘CF «O«EB 1005 LBS CLUSTER MERGER, 40s : BR if itt A.) 5 
40 1 30$: FAO_S CTRSTR = REB orb ans - ; Tell user that z.* - *t test it 
D 1 OUTLEN = BUFFER PTR,- 
D 1008 OUTBUF = PAO. BUF 
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VAX/VMS UETP Cluster Integration fest 
= Collect the DECnet/VAX Nodes 


GET_NODE 


31 


Bb ee a 8 et se 2 a i at a a tt ss 


SOOSCSCSCSODDOSOSCOCOOOOCOOOOOOOOOOOOOOOCOOO 
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wo 
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wo 


50$: 


60$: 


MOVC3 (RB) ,@4(R8) BUFFER 
movCcS TA ASK. a K.OTASK + 3 
ADDWS = (RB)<T SK BUFFER. PTR 
SSETSFM_S ENGEL #0 
SASSIGN7S DEVNAM = BUFFER_PTR,- 
CHAN = (R7) 
MOVL 0,R2 
SSETSFM_S ENBELG = 
BLBS 5 
PUSHL 
CALLS STATUS TO_TEXT 
$FAO_S tt TRSTR = CINK F FAILED, = 
SUTTER = BUFFER PTR,- 
UF = FAO_BUF,- 
= R8,- 
= R 

PUSHAL STATUS_PTR 
PUSHL 

USHL #UETPS_ TEXT!STSSK _ERROR 
PUSHAL BUFFER 
PUSHL #*XF b01* 
PUSHL UE TPS TEXT:STSSK _ERROR 
CALLS #6, ERROR_ 

RB 50g 

TSTw (R7)+ 

TSTD (RB) 

VL —_— UIDSIDSA_FLINK(R6) ,R6 
BNEQW 10$ 


SSE=1986 98:00:27 


P1 = R8 
seutnse.5 eo MSGVEC = REBEL_MSG_PTR 
BRW 


esGetericoo.man;1 2% 28, 


AX/VM 
UETP SY S 


"Next’’ item will overwrite this one 


Concatenate the node name with the... 
.--rest of the DECnet target string 
Form a ofragt cece! for the string 
Turn SS err 

eoewh 4 getting a “DECnet Link... 


Preserve the return status... 
---while restoring error handling 
«+-80O we don't bomb out... 

eee if we ~ at F get an error 

Get the text for the error code... 


; «+-and an explanatory message... 


eeeand signal the error 
Let ‘‘next™ node overwrite this one 


Point to the next space for channel 
Point to the next space for name desc 


Point to the next possible SID record 
Loop for another node if there's one 
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0401 104 
2 } \ a3 Set up an SFAOL PRMLST so we can tell the world which nodes we're testing. 
3 401 1 23? MOVAW NODE_CHANS,R7 H med to loop through channel words 
E 04606 104 MOVAQ ae NAMES RB 3 Used to loop through name cyser iptore 
CE 04 104 MNEGL : will count items to pr 
40E 1 sleaze: Last commeraee not or inted! 
A 4 3 1 sews #6 vied bist MSG,R6 Initialize Line Length 
C 414 1 4 SUBL sheds 3441>3MAX. NODES, sb We need a throwaway data str... 
dD 41 1 MOVL P,R11 ++.to store some throwaway data 
C2 O41E 1054 SUBL2 #4*MAX_NODES,SP : breail locate a worst-case amount... 
D r ! 5 708 MOVL SP,R10~ 3 «Of space for SFAOL PRMLST 
83 4 1 : TSTW (R7)+ ; Will we try sooe one another node? 
1 42A 1 28 BEQL 90$ R if we're at the end of the List 
3D 04 ¢ 105 ACBW «=-_-« #80, #<NODE _LENGTH#2+2+4¢4>0 - ; BR if this node and version... 
4 1060 R6,80$ 3 «eewon't wo a Line 
7 434 1061 MOVAQ CRLFTAB,(R10)+ ; Wrap the Line 
8 9 1 86 OVW #8, ; Reinitialize the. tide Length 
06 r ; : 27 80s INCL Ry ; Count the Line wrap as item to print 
7 4 ‘ 1 ge MOVAQ (RB),(R10)+ ; Put the node desc in our PRMLST 
i) 44) 1 96 MOVL R11, (R10)¢ 3; Save a pointer... 
DO 0444 106 MOVL #<24641>, (R11) + 3 «e.tO a descriptor... 
D 447 1 28 MOVAL 4(R11),(R11)+4 i ++.iM our throwaway data structure... 
8 768 1 : MOVW #*Aa/ (/,(R11)4 3 «+ethat's used to display... 
DO 0450 1070 MOVL 4(RB),RO : 
D 54 (1071 MOVL <UIDS{D$T_SwVERS : i..the software version... 
$28 1 if UIDSID$T RODENAME-1>(RO) (RII) 4 
90 0458 107 MOVB #*A/)/, (R11) + 3 .-.running on this node 
7 58 1074 MOVAQ COMMASBACE.,(R10)+ ; Separate successive nodes 
C re ' Le ADDL2 #3,R9 ; Count items on the PRMLST 
73. 0463 1 8 TSTD (R8)+ ; Point to the next possible node desc 
11 re : A 908 BRB 70$ ; Loop for more nodes 
DS 0467 1080 TSTL RY t More my se nodes to be tested? 
14 0469 1081 BGTR 100$ R if there were 
4 1 § SPUTMSG_S MSGVEC = NO_NODE_MSG_ rine Let the. world know if there weren't 
11 as ' 2 1008 BRB “110$ Use common exit 
A ! 5 STRNLOG_S eon = parent - 3; See if the user wants misc info 
3 $5 1 : cMPC3 v108 "SHORT+8, OBOFFER 3; if A ng * report was requested... 
oF 1 3 BEQL 3 .-.then BR to o -—. che message 
DD Al 1 PUSHL : Th pereneter co 
dO AS 1 » MOVL R11 3; Save the pointer to The PRMLST 
A6 109 SFAOL_S ort TR = NODE _LIST_MSG,- ; Form a message with node names 
A6 1 3 OUTLEN = BUFFER_PTR,- 
A6 109 TBUF = 4. BUF ,~ 
A6 1094 RMLST = (R1T) 
BA 0488 1095 POPR #*A<rO Remove parameter count 
4BD 1 38 SPUTMSG_S - List the node names for the user 
Bp 3 aan “MSGVEC = NODE_LIST_MSG_ ete 
£0 ce 1 $3 ADDL2 #<4444+24+4+14+4>eMAX anni, 7 Clean up the stack 
D5 1100 RSB tre done 
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~SBTTL START_TALKING = Start Communications Between Master and Slaves 


5; ++ 

3; FUNCTIONAL DESCRIPTION: 

Start communicating with the tasks established by GET_NODES. (Those 
tasks will be runn a this same image, but take a different execution 

pets because where will be a translation for the Logical name SYSS$NET.) 
e start communicating with each ‘'slave’’ by exchanging greetings. 


; IMPLICIT INPUTS: 

; NODE _CHAN List of channels on which we have DECnet Links. 

; NODE _NAMES List of eetacers to descriptors of node names with which 
: we've established a Link. 

s 


—DOOCDOOOO 


=—OODNAUE UP 


IMPLICIT OUTPUTS: 
; NONE 


SIDE EFFECTS: 
Messages to tasks on those nodes. 


0D8 
OAA2'CF 02 AD 


69 Set msg to tell each slave... 
63 0049'CF 06 he nen ° 


3 «the name of the master node 


TART_TALKING: ‘ 
57 QOAA'CF E 5 “  MOVAW NODE_CHANS,R7 ; Used to loop through DECnet channels 
58 O2AA‘'CF E 0 MOVAQ NODE_NAMES,R ; Used to loop through node name descs 
HH pose ce DE MOVAL HELLO NSC, RS ; Set up convenience registers... 
(R9) 22 (RO) MESSAGE BUFFER - 


novey IMOK_A 
#NODE_LENG 


ia 

o 

nn 
MmrVNoeo 
@oom 


H,SCSNOBE,(R 
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67 65 TSTW (R7) ; Have we another channel? 
a BNEQ 208 ; BR if so - send a message 
0 208: RSB ; Return if not 
7E 67 3 é : (R7),-(SP) ; Set up the channel... 
58 oD US R8 3 «..the node name... 
59 DD PUSHL R9 ; «--and our message name 
1922'°CF 2 Fe CALLS #3,MASTER_WRITE 3 gay HI!" to the next node 
30 ° 3 BLBC R ; Skip the rest if this node died 
7E : C MOVZWL (R?),-(SP) : Set up the channel... 
8 oDD PUSHL 8 3 «e.the node name... 
A odd 1 PUSHL R10 3 «.+.and our message name 
eadnal 3 4 : “tS #3, MASTER_READ ; see A. node knows ys 
: e res no re 
OCC4*CF 02 AA oa 23 1A we £10) ,2(R10) BUFFER ; Did! ve get the reply Me vanted? 
: no 
63 04 B8 98 23 ; CMPC3) = (RB) ,@4( RB), (R3) 3; Was reply from the node we wanted? 
1 3 1 30s EQL 40$ ; BR if it was 
0999" f a A ; Ao ry pycuse ae ; Complain that we got back trash 
A 0D PUSHL aie 
1B47'CF mm. CALL #3,GARBLED_TRANS 
02 A8 A se BISW #CLIG_M_DEADNODE,2(R8) ; Indicate that we're done with node 
7 83 B : TSTW (R7)+ ; Point to the next possible channel 
8 D TSTD (R8)+ ; Point to the next possible name desc 
B6 Soi F BRB 10$ ; Loop to say hi to the next one 
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-SBTTL SET_UP_SLAVE = Complete DECnet Link to Master 


> 
FUNCTIONAL DESCRIPTION: 
We've been started up as a DECnet task. Complete the Link to the 


Page i) 


ow 
30- 


FUSS 


P 
E 
41 11 
41 1161; 
41 11 3 
a1 Vea hich started 
; rocess which started us. 
541 1188 3 , 
41 1198 3 IMPLICIT {ery 
7! 119 3 SYSSNET Logical name is defined. 
22 1168 3 IMPLICIT OUTPUTS: 
7! 1109 3 NODE_CHANS gets DECnet channel number 
22] 1126 3 SIDE EFFECTS: 
541 1173 ; DECnet Link is completed. 
541 1174; 
541 1175 ;-=- 
541 1178 
B34) 1177 SET_UP_SLAVE: 
59 ODB2'CF DE 0541 1178 MOVAL HELLO_MSG,R9 ; Set up convenience registers... 
SA ODBS'CF §=6DE «(0546 «1179 MOVAL  IMOK_ASG,R10 Dene 
0548 1180 SASSIGN_S DEQNAM = SYSSNET,- 3; Complete DECnet Link to master process 
0548 1181 CHAN = NODE_CHANS 
59 dd O55C 1156 PUSHL R9 ; Define the type of message we want 
16D0°CF O01 FB b225 118 CALL #1,SLAVE_READ ; Get the master node's ‘HELLO’ message 
OAA2'CF 02 AD 69 29 0563 1184 CMPC3 (R9),2(R9) ,MESSAGE_BUFFER ; What does the message say? 
1¢ 13 056A 1185 BEQL 10% : BR if it says HELLO’ 
00BB ' CF DF b26e 1156 PUSHAL NULL ; Otherwise,... 
OOAD* CF OF 570 118 PUSHAL MASTER 
59 DOD 0574 a SHL R9 
1B47'CF 03 FB 0576 1189 CALLS #3,GARBLED_TRANS 2 «p8lonel the error 
0388 113 10$ SEXIT_S CODE = #UETPS_ABENDD! STS$K_ERRO 'STSSM_INHIB_MSG 
63 06 28 At 1136 MOVC3 #NODE_LENGTH,(R3),- ; Save the master node's name 
O009C'CF B258 119 oF 
02 AA 6A 28 OSB8E 1194 MOVC3 (R10),2(R10),- ; Set up msg telling master node... 
OAA2' CF 0592 1195 MESSAGE. BUFFER 
06 28 59 1196 MOVC3) #NODE_LENGTH,- 3 «eethat I'm an OK node 
63 0042'CF 597 1197 SCSNODBE , (R3) 
5 DD 0598 1198 PUSHL R ; Define the type of message we want 
1769°CF O01 FB b255 1199 CALLS #1,SLAVE_WRITE ; Tell the master node that I'm OK 
05 O5A2 1200 RSB 
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sh ] ¢ : ~SBTTL CHECK_LOCKS = See If Locks are Cluster Visible 
AS 1204 ; FUNCTIONAL DESCRIPTION: 
AS 1205 ; Take out a lock ang see that it's visible from the master node. To 
AS 1 § : allow for the possibility of the test being run simultaneously from 
AS 1 3 mode than one node in a cluster, choose a lock name that we can 
5A3 1 8 ; uarantee will be unigue amongst cooperating tests. Lock names will 
SAS 1 ; e an identifying string, concatenated with the master node name 
SAS 1210; eg hog | known to slave nodes), concatenated with the name of the node 
5AS 1211; es he lock, concotoneser with a string supplied by the master. 
SAS 1 \¢ 3 For this step, the string will repeat the name of the node San ing the 
ah 1413 3 lock. (See the deadlock detection section for a later use of this 
AS 1214; lock.) Check that the lock is visible. Take out a corresponding 
bea : 1? $ lock for the master node. 
OSAS 1 9 3 IMPLICIT INPUTS: 
QO5SA3 1 18 : NONE 
OS5SA3 1219 ; 
OSA3 1220 ; IMPLICIT OUTPUTS: 
OSAS 1221; NONE 
QSA3 1 Q 3 
OSA3S 1 3; SIDE EFFECTS: 
OSAS 1224 ; A set of locks, one for each slave process. The resource names 
OA5 1225 ; have the form, “id-string_master-node_slave-node_slave-node"’, 
B24 : § ; where all node names are assumed to be NODE_LENGTH characters. 
ae 1228 ;-- 
05A3 1229 
O5A3 1230 CHECK_LOCKS: 
57 QOAA'CF E Q5A3 1231 MOVAW NODE_CHANS,R7 ; Used to loop through DECnet channels 
58 O2AA'CF E OSA8 1 3 MOVAQ NODE _NAMES,R8 ; Used to loop through node name descs 
59 OQODBF'CF DE OSAD 1 MOVAL TAKECOCK MSG,R9 ; Set up convenience registers... 
5A__ ODC9"CF_ CODE 0286 1234 MOVA GOTLOCK_ASG,R10 S aes 
00° 02 a9 69 2C 0587 1235 MOVCS (R9),2(R9) #0, = : Set up msg telling slaves... 
010D 8F O5SBC 1236 #TEXTB_SIZE,- 3 «eto take out a lock 
OAA2' CF OSBF 1237 MESSAGE_BUFFER 
3tg 1 3 10S: 
67 B5 O5C2 1239 TSTW (R7) 3; Have we another channel? 
01 ig 5€4 1240 BNEQ 208 ; BR if so - send a message 
0 p2cg : *] 208 RSB ; Return if not 
a3t7 1 “§ BSW #CLIG_V_DEADNODE ,2(R8),60$ ; BR to next node if this one is dead 
50 69 3C OSCF 1244 MOVZWL (¢ R ; Append node name to the message... 
50 OAAg*CF40 t 08 1245 MOVAB MESSAGE BUF FERERO} MY 3 au 
60 048 08 d8 1 rt) MOVC #NODE_LENGTH,@4(R §,(RO) } ...80 slave knows resource to Lock 
7E 6 C 50D 124 MOVZWL (R7),=(SP) ; Set up the channel... 
58 DD 2E9 1 7 PUSHL R8 3 «..the node name... 
59 DD 43 124 PUSHL R i «.-and our message name 
1922°CF O03 FB E4 1250 CALLS #3,MASTER_WRITE ; Tell this node to get a lock 
5E9 1251 BLBCW ; Skip the rest if this node died 
7E 67 3¢ OSEF 1 3 MOVZ2WL (R?),-(SP) ; Set up the channel... 
58 DD OSF2 125 PUSHL R8 3 «eethe node name... 
5A OD O5F4 1 22 PUSHL R10 3 ..-.and our message name 
19B0'CF O03 FB OQO5F6 1255 CALLS oa eRASTER_READ ; See if this node got the lock 
5FB 1 § ett | R g0s ; Error in sending, skip the rest 
OCC4*CF 02 AA 6A 29 601 1 CMPCS (R10) ,2(R10) ,BUFFER : Did we get the reply we wanted? 
7 2 8 1258 BNEQ 30$ ; BR if not 
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63 0488 68 3 A 1259 CMPC3 = (RB) , 4 (RB), (RB) ; Was reply from the node we wanted? 
14 : } 6 30s BEQL 40$ ; BR if it was 
edt DF i ‘ PUSHAL EXCLUDE _MSG ; Complain that we got back trash 
A 0D 17 1264 PUSHL R10 
1B47'CF 83 F 619 1265 CALL #3,GARBLED_ TRANS 
02 A& 7. @ 61—E 1 66 BISW PCL IG_A_DERDNODE ,2(R8) 3; Indicate that we're done with node 
OOAD 31 ? : ? 408 BRiWw 6 ; Skip the rest 
OOCF CF por ee 28 06 ; : 83 ; MOVC3 UE TPSCLIGUETPSCLIG+8.~ : Get the full name... 
63 oy Neal 06 8 é f ! 7 moves yet TH, SCSNODE , (R3) ; nae 
63 04 BB 06 4 639 1 og MOVC3 #NODE_LENGTH,@4(R8),(R3) : ...0f the resource... 
83 SF 8F : 6 1274 MOVB #*A/_7,(R3)+ 3 «eethat the slave... 
63 04868 06 2 ei8 1275 MOVC3 #NODE_LENGTH,@4(R8),(R3) ; ...supposedly just locked 
54 occa’ er D 647 127 MOVA FFER,RG ; Fix up a descriptor... 
OcBC'CF 4 C3 064C 127 SUBL3 R4,R3,BUFFER_PTR t seeto the resource name 
50 Ocec'CF dE 0656 1278 MOVAL BUFFER_PTR,RO 
Bee 1279 SFAO_S CTRSTR = DEBUG_REQ_LOCK_MSG,- ; Set up a program trace msg 
57 1280 OUTLEN = DEBUG-PTR>- 
0697 1281 OUTBUF = DEBUG_FAQ_BUF .- 
S18 aes Be 
1538 30 beer 1284 BSBW GIVE_DEBUG_MSG 3; Issue it, if appropriate 
0671 1285 SENQ_S LKMOBE = #CCKSK_EXMODE.- ; Is it a true lock? 
0671 1 36 LKSB = QUAD_STATUS,- 
0671 128 FLAGS = #LCKSM_NOQUEUE,- 
0671 1288 RESNAM = BUFFER_PTR 
50 O0000°8F B61 sey) 1289 CMPW #SS$_NOTQUEUED ,RO 3 It will be... 
2p M3 Be23 : + 3 oe ; ..if we can't get it 
1BC3"CF 01 FB 0697 1 35 CALLS #1,STATUS_TO_TEXT ; Get text for our result 
69C 129 $FAO_S CTRSTR = QRONG ENQ,- ; Form an explanatory message... 
69C 129% OUTLEN = BUFFER PTR,- 
45 : 2 pytour ° FAO_BUF ,- 
ores op AR) ese URAAL tatu Pr 
00741132 8F DD op 129 PUSHL #UETPS_TEXT!STSSK_ERROR 
coor SSR gr Bo Gust test usar. gusrggr 
0741132 oF DD O6C7 1 08 PUSHL ae Ts TEXT! STSSK_ERROR 
1DAD* CF FB 43 ! RF ens. CALLS #6,ERROR_SIGNAL 3 «and signal the error 
87 8 Bs 1 B2 : TSTW (R7)+ 3; Point to the next possible channel 
88 D4 (1 $ TSTD (RB) + ; Point to the next possible name desc 
FEE9 31 0606 130 BRw 10$ ; Loop to request the next lock 
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-SBTTL TAKE_OUT_LOCK = Get a Lock at Master's Request 


609 ; FUNCTIONAL DESCRIPTION: 
D9 To test that locks are indeed cluster-wide the master process will 
rt request us to get a lock. Report back the eventual status of that lock. 
609 SPLICE INPUTS: 
609 Name of a poseueee for us to lock, by way of message from master 
609 proces 
609 
609 


IMPLICIT OUTPUTS: 
NONE 


SIDE EFFECTS: 
Resource name is locked. 
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AKE_OUT LOCK: 


WWWAWWAANIANINNA AAA AIAN 


WAP OPOPOPIPONIPONONN 


1309 
1 
tr 
1 
1 
1314 
} 5 
Hy 
$9 1818 
$39 135): 
BOD? 1 ¢: 
609 1 
0609 1324 
v4 1325 
$09 1359 
59 ODBF'CF DE S89 1328 MOVAL TAKELOCK_MSG,R9 ; Set up convenience registers... 
5A ODC9'CF DE Beek 13 9 MOVAL GOTLOCK ASG, R10 ; 
59 DD O6E3S 1330 PUSHL ay : Detine the type of message we want 
16D0'CF O01 FB OQ6E5 133) CALL SLAVE the master node's message 
OAA2'CF O02 A9 69 29 O6EA 13 § CMPC (78), atRON EAESSAGE _eurrek : “that does the message say? 
1¢ 613 06F1 133 BEQL : BR if it says ‘'TAKELOCK" 
0 "CF DF O6F3 1334 PUSHAL : Otherwise,... 
we +4 gore ! 2 rg RASTER. NODE_DESC 
1B47'CF 03 FB O6FD 1337 CALLS #3,GARBLED_TRANS aioe l the err 
pepe } + 108: SEXIT_S CObE = MUETPS "ABEND! STS$K_ “ERRO !STSSM_ INHIB MSG 
5B 53 00 O FOF 1340 : MOVL ; Save ptr to resource name in msg 
OOCF'CF OOC7'CF 28 Orig 1341 MOVC3 UefPsCLIG, UETPSCLIG+8,- ; Set up... 
Meee 28 Orie 1348 move #NODE LE 
0585 ORE SE 90 Ord 1308 move mASTER nope, (ti) BS 
ae 6B 06 28 07 ; 46 MOVES #NODE L LENGTH, (R11), (R3) ti ithe resource name... 
63 68 06 28 07 1348 MOVC3 #NODE LENGTH, (R11), (R3) ...that we're supposed to lock 
54 eae D 7 ; 1349 MOVA Bur EE RG ; Set up a pointer... 
ocec’tf 33.38 «C3 OF8P 1350 SuBL3 RGR BUFFER PTR 3 s..to that name 
74 1 3 SFAO_S CTRSTR7= DEBUG_TAK_LOCK_MSG,- ; Set up a program trace msg 
742 =«1 OUTLEN = DEBU R>- 
Be ! 20 fe = ne FAO “BUF, - 
= 
144F 30 ie 1 § BSBW GIVE_DEBUG : Issue it, if apereertate 
75A 1 SENQ_S LKMOBE = PCCRSK EXMODE,- ; try to lock the resource 
75A 1 8 tKSB =@Q STATUS 
75a 135 FLAGS = #LCKSM_NOQUEUE,- 
75A 1360 RESNAM = BUFFER P 
002C'CF 9" at ake ! $ Sart oo NORMAL, QDAD_ STATUS fy, h we ge eye teens 
002C'CF 3C 77 1 és MOVZWL " STATUS,=-(SP) 
16c3" CF 1 FB 738 1364 CALLS #1,STATUS 16_T TEXT : Get text for our result 
OEDE'CF OF 0788 1365 PUSHAL STATUS_ Bip 
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HUETPS TEXT! STS$K_ERROR 
LOCR_ENQ 


N 

#17 

° ETPS_TEXT!STSS$K_ERROR 

ERROR_EXIT ; Signal error and exit 

(R10) ad i - ; Set up msg telling master node... 
MESSAGE 


#NODE OF RCT: SCSNODE, (R3) . that I got the lock 
1 3 define the type of message we want 
#1,SLAVE_WRITE ; Tell master node the lock is OK 


U 


vss 


63 


ah 

55 0042'CF 

56 

57 

5c 

0080'CF 

59 ODBF'CF 

5SA__ ODD2°CF 

00 O2A HH 
10D 8F 

ay PE 

OOCF 'CF C7'CF 
CC4°CF 

63 0042°CF 06 
ened» D9'CF 
& ‘wa 

OCBC CF 6 
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CHECK_DEADLOCK = See If Deadlock Detecti 


“SEP=19 


sé 90: 19:09 Macys Macro V04-0 Page 


UETPSY. SREIUEYCL 1600.MAR: 1 
ee If Deadlock Detection Works 


y CHECK_LOCKS 


assign to each node a lock 
s should result 


in a@ a chain of locks 

eck for a victim or timeout. Ensure that 
sistent throughout the cluster. Use blocking 
ot see if deadlock detection has occurred. 


; Is deadlock detection... 
3; «--enabled for this node? 


ort es.” ; Warn if not 


BR if so 


This will index through nodes... 
-+-for the resource a slave is... 
-2-tO lock mo sng this step 

This will index through nodes... 
-«-for the slave that is to... 
---take out the lock 

If non-zero, we have found... 
«»-some nodes for deadlock check 
Counts deadlock participants who... 
-+-Nave not yet caused us a... 
..-blocking 

Set up convenience registers... 


Set up msg telling slaves... 
«+-tO take out a lock 
Form a name... 


3; .--for a lock that we'll hold... 
3; «eewhich will result in... 

; «+-@ blocking AST... 

3 «eewhenever a slave tries to get it 


P : 
= #LCRSK EXMODE ,- :‘we'll use this lock 


> «sand the blocking ASTs from it... 


7BA ‘ ~SBTTL CHECK DEADLOCK - $ 

7BA 1 > FUNCTIONAL DESCRIPTION: 

7BA 1384 ; Using the locks taken out 

7BA 1385; taken by another node. 

7BA 1 § : leading to a deadlock. Ch 

7BA 1 3 deadlock Geyect on was con 

ey ! 8 : ASTs to minimize the wait 

7BA 1 p : IMPLICIT INPUTS: 

rh ! 4 3 Set of locks taken during CHECK_LOCKS 
; UTS: 

7BA 1 38 IMPLICIT OUTPUTS 

Rimi 

7BA 1 36 ; SIDE EFFECTS: 

7BA 1397; NONE 

7BA 1 38 ; 

Fen 1200 

7BA 1401 CHECK _DEADLOCK: 

RS as Hine Ek gpaoce.var 

DE 700 1404 MOVAL SCSNODE,RS 
07¢5 1405 SFAO_S CTRSTR = DEADLOCK 
07¢5 1406 OUTLEN = BUFFER PT 
o7¢c5 140 OUTBUF = FAO BUF,- 
sr 1a TESST: choos 

UTMSG_ VEC = DEADLOCK_OFF_PTR 
O7D0C 1410 SPUTMSG_S MSGVEC = DEADLOCK_OFF_PT 
O7ED 1411 5$: 

D4 O7ED 141¢ CLRL = R6 : 
O7EF 141 : 
O7EF 1414 ; 

D4 O7EF 1415 CLRL = R? : 
O7F1 1416 F 
Orr 1417 F 

D4 da 1418 CLRL = R12 : 

D4 Orr 1420 CLRL = DEADLOCK_COUNT : 

a Ve52 

DE O7F7 14 5 MOVAL TAKELOCK_MSG,R9 : 

E O7FC 1424 MOVA QUEVEL OCR MSG .R10 : 
C 0801 1425 MOVC (R9) ,2CR9Y,#0,= : 
$ 14 6 #TEXfB SIZE,- : 

14 MESSAGE_ BUFFER 

28 4 16 3 MOVC3 UETPSCLIG.UETPSCLIG+B.~ ; 

38 16 1430 MOVC #NODE LENGTH. SCSNODE , (R3) : 

1€ 1431 MOVCS BLOCKT@BLOCK+4, (R3) 

OF 4 14 : MOVA FreR R 

C 9 14 SUBL3 R4,R3,BUFFER_PTR 

F 1434 SENQ_S LKMODE 

F 1435 LKSB = QUAD _STATUS,- 

F 14 : FLAGS = #LCKSM_NOQUEUE,- 
F 14 RESNAM = BUFFER-PTR,~ 


3 «e-to count slaves who don't yet... 


y the same one in a one-node cluster or if there have been 


poss 
should already have that lock. 


errors) whi 
0$: 


we have a slave node (CR7]) available to take out a lock and a slave node 
(CR6), wl 
c 


Bree te te te te 


54 = O2AA'CF4 MOVAQ NODE_NAMESCR6],R4 


; Append node name to the message... 
HOVAB MESSAGE _BUFFERCRO],RO  : ... 
MOVC ENODE LENGTH, (ROS (RO) 3 «+-SO Slave knows resource to lock 


o 
Ou 
°o 
. 
a 
=o 
ou 
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MO NWR OWN 
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F 14 BLKAST = 200$ 3_«eeknow if they are deadlock victims 
p hi dO i 1435 MOVL oe apchee ace . ; Save lock id so we can requeue BLKAST 
cA C'CF €8 12¢} BLBS peapcork Lock{p ; BR if we're correctly set up 
0 “"¢ DD A 1406 PUSHL ay STATUS 
1BC3'CF 1 FB 144 CALLS #1,STATUS_TO_TEXT ; Get text of error status 
tere BRB) Hess URAL TUS Pe 
007411 § F OD 69 1298 PUSHL #UETPS$_TEXT!STSSK_ERROR 
8? ‘CF DF of 144 PUSHAL NO B48 % ; It won't affect deadlock detection... 
O00r 0) F 0D 3 1343 PUSHL #*3F 1 
0741132 8F 0D 79 «144 PUSHL ayert TEXT! STSS$K_ERROR 
1DAD‘ CF 6 FB ty 1e29 108: CALLS #6,ERROR_SIGNAL ; ..ebut it's worth letting users know 
OOAA'CF47 BS 4 1488 TSTW NODE _CHANSCR7] ; Have we another channel? 
9 145 BEQLW 100% ; BR if not - check deadlock 
54 O2AA'CF47 7E 1328 MOVAQ NODE_NAMESCR7],R4 
34 1455 BBSW #CLIG_V_DEADNODE,2(R4),90$ ; BR to next node if this one is dead 
9C 1289 ; Note that if we get here there exists at least one node such that we have 
O89C 1458 ; a DECnet channel assigned to it and that we know the node is not dead. That 
45 1459 ; means that we need have no concern over an endless loop in picking a 
9C 1460 ; resource name to lock, given that the resource name will be the name of 
+43 1283 ; some node. 
5C 06 OB9¢ 1268 : INCL R12 : Indicate that a node was found 
OO80'CF 06 +H} 1464 INCL DEADLOCK_COUNT ; This node hasn't casued us an AST yet 
56 606 A2 1465 INCL R6 ; Init to choose the node name... 
yt 1298 20s: 3 ...for next resource to lock 
OOAA'CF4 85 4 1468 |  TSTW  NODE_CHANSCR6) ; Have we reached the end of the List? 
1 9 1997 BEQL 30$ ; BR if so - we'll wrap around 
54 O2AA'CF46 7E AB 1470 MOVAQ NODE_NAMESCR6],R4 
01 E1 881 1471 BBC #CLIG_V_DEADNODE ,- ; BR if this node will be available... 
OC 02 A4 2 1076 (R4), 3 .-.to take a lock of its own 
E6 56 OQOOOO00FF BF F2 1907 30s AOBLSS #MAX_NODES,R6,20$ ; Point to the next possible node 
56 4 1475 : CLRL R6 ; We've wrapped around in our chain 
E211 1376 BRB 20$ ; Wrap around in our search 
1628 
147 
1480 
i 
1488 
1484 
i 
18 
1489 
14 
12 
1498 
1494 


OHM WWF) BD DW WPNIPIMIPININUNOMMOw— 


WHMMMMS SO OOOOOOOOOON 


_.00 09 0d Cd G9 Gd Cd. 0d Gd 0D G9 0D 00 OD CD 


MOVZWL NODE_ mong iis ; Set up the channel... 
AA'CF47 PUSHAQ DE_NAMESCR?7 i «+.the node name... 
PUSHL 3; «-.and our message name 
1922°CF 3 CALLS #3,MASTER_WRITE ; Tell this node fo et a lock 
3 BLBCW 3; Skip the rest if this node died 
7E AA'CF47 3¢ MOVZWL NODE _CHANSER?].~(SP) ; Set up the channel... 
AA'CF47 F 9 PUSHAQ ROBE _WARES R?7 3; «..the node name... 
5A OD 9 PUSHL Ri 3 «and our message name 
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CALLS #3,MASTER_READ See if this node got the lock 
etd | 45 0 Og Error in sending. skip the rest 
CHP Ral ),2(R10) ,BUFFER Did ve ge get the reply we wanted? 
oot NODE _NAMESCR7J,R 

CMPC 


©o 


voacb08 CHECK-DEADLOCK = See If. 
1980'CF O03 FB 

OCC4'CF 02 AA 6A 
Pm O2Aa' CRED 


04 84 64 (R4)7a4(R4), Cash ; Was repl ree the node we wanted? 
% sos, EOL 608 I BR if ithw oot: 
0999'CF DF *  PUSHAL EXCLUDE MS : Complain that t back trash 
O2kA* CFS? F PUSHAG NODE E_NAMESCR7) x mph ea Pemvesti tiie 
DD PUSHL R 
sa! B47'CF 3 B CALLS GARBLED_ TRANS 
ogAarcr VA NObE NAMESTR7],R4 
19 A BISwW2 acti. & "DEADNOBE., 2(R4) ; Indicate that we're done with node 
01 3 60s: BRW 80$ 3; Skip the rest 
oceo"e po : MOVL NODE-LENGTHERS  LENGTH+= ; Get this node's dlock wait interval 
54 O2AA'CRS4 mOvAG NODE “HAMESCR? : Set up for possible message 


ADCOCK_WAIT, ai : Is deadlock checking consistent? 
BEQL $ ; BR if it is 
MOVAL SCSNODE,RS5 
SFAO_S CTRSTR = ta tt ge WAIT_MSG,- ; Complain if it isn't 


OUTBUF = FAO_BUF,- - 
R3 


7 
53 =007c" f ? 
55 = 0042" CF 


oO 
t= 
par) 
i 
m 
z 
iT) 

@o 


° 


SOoooco 


WOOO DODOOOOOOODOODOOOVOOOODOOOO0O0000000 


NOUMNMMMAMNMUE & BWANA 2 2 2@OOOON 


WWMNOGOOCCCOCOCOD OLMG OOPS NMON NNOOOPUInNOIeow 


R4,- 
DEADLOCK _WAIT,- 
SNODE LENGTH,=- 


PS 
PUSHAL BUFFER PTR 


OcBC* 
000F 0001 PUSHL 7 XFOQ001 
00741132 PUSHL ayers ie ERROR 
1DAD' CF CALLS /ERROR_SIGNA 


70$: 


me a a tk a at at a = = = Ss 8 bs bo  —s 2 1 1 4 2 


Be eh ea) ah ak ah ah ab ab eh bbe bbb bed bh bebe bedhead bebe h hb bd h dh dh dh dh dh dh dh ath dh dh dh dh duh dhh dh eh dh dh he te te tee ta 


OOD NA MNE WIN 9 OOD NIA MEIN  O OOD NAN E WIN $C OOD NA UNE WWI OOD NA UNE WO ODONOU 
vvv 
> 
nonun 


AE EE EERE AAAI BQO ODO DODO 000000 


DS 0984 TSTL ‘ ; Is deadlock detection 
12 09 BNEQ 75$ enabled for this noise? BR if so 
$SFAO_S CTRSTR = DEADLOCK OFF_MS6,-; Warn if not 
OUTLEN = BUFFER PTR,- 
OUTBUF = FAO_BUF,- 
= (R4J,- 
P2 = 4(R45 
a SPUTMSG_S MSGVEC = DEADLOCK_OFF_PTR 
OOCF CF 90C7 CF 28 381 MOvCc3 UETPSCLIG, ,UETPSCLIG+8,- ; Get the full name... 
63 0042°CF 968 MOVC3 #NODE my »SCSNODE,(R3) ; 
83 SF BF 9C MOVE. = #*A/ 3 eee 
38 2AA* CF 46 9¢5 MOVA NODE “pare ; 
a BB 98 MOVC3 #NODE LEN ne Ore). (R3) ; -+-of the resource... 
30 OSFsCOBF 9D MOVB #*Aa/_7,(R3)+ that the slave.. 
9D4 MOVC3 FNODE CENGTH, a4(R8),(R3) : supposedly just” locked 
4 cca et OF 909 MOVA BUFF mr ix” descr ee 
ocec'¢F ee. DE SUBL aur ren PTR : cate the Peanures aans 
cacece DE OE ROVAL BUFFER 
54 O2AA'CF47 E Q9E9 MOVAQ NODE ENKRES RI, R4 Get address of node name desc 
SEF SFAO_S CTRSTR = DEBUG_REQ_LOCK _ASG.- ; Set up a program trace msg 


voa=b08 
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50 eoee'e 


1BC3'CF 31 


ceoe'sr 
00741132 8F 
CBC'CF 


49 1 8F 
00741132 8F 
1DAD ‘CF 
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VAX/VMS_UETP Cluster {ntegrarion Fest 197 $e 138s 90: AB: 09 AX/VMS Macro V04- 
CHECK DEADLOCK = See If Deadlock Detecti 6-SEP-1984 UETPSY.SRCJUETCLIGOO.MAR; 1 
SEF 1 OUTLEN = DEBUG_PTR,- 
, : } 9 TBUF = a net 
Ss ee 
9eF 1555 P = RO. 
30 OA 1 § SBW GIVE _DEBUG Asé Issue it, if eperpertate 
A 1 SENQ_S LKMOBE = #CCKSk EXMODE,-" 3 is “Se a true 
A 1 } LKSe = QUAD STATUS 
aod 1 LAGS = #LCKSM_NOQUEUE,- 
AOD 1 RESNAM = BUFFER PTR 
FI A26 1 MP o 35 NOTQUEUED ,RO ; It will be... 
AeB 1 EQL 9 ; «if we can't get it 
DD QAZD 1 ? PUSHL R 
FB QAZF 1564 CALLS) #1,STATUS_TO_TEXT ; Get text for our result 
A 1565 SFAO_S CTRSTR = QRONG ENQ,- ; Form an explanatory message... 
A341 66 OUTLEN = BUFFER PTR,- 
A34 156 TBUF = FAO_BUF,- 
A3s4 1 re p = R4 
DF OAS9 1 : PUSHAL STATUS_PTR 
DD OA4D 1570 PUSHL 
DD QASF 1571 PUSHL #UETPS_ TEE tStSen, ERROR 
OF ASS 1 t PUSHAL BUFFER-PTR 
DD OAS5S9 157 USHL #*xF0001 
DD QASF 1574 PUSHL #UETPS tie ERROR 
FB OA65 1302 CALLS #6,ERROR_S 3 «--and signal the error 
Ask arp ons 
A6A 1378 SPUTMSG_S MSGVEC = ; Warn that deadlock detection... 
. a 132) 908 NO “DLOCK.. SETUP_PTR ; ...testing may fail 
A7B 1581 INCL R7 ; Point to the next possible node 
1 OA7D 15 i BRw 10$ Loop to request the next lock 
OA80 15 Deadlock detection checking continues on next page 


roe 


_ 


vou=b08 


00 50 FF67 a5 oF 
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9 
ntegration fest 
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t effect. 


me Ge Ge Ge Ge Ge 


>>>>>r>r>r>rr>r>r>r>r 
o 
oS 
ad 
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s32S SWSIOQOOOCCOCOO 


> 
o 
on 


WOWUIMNDODODO——— NOOO num 


™m 


R12 
140$ 
#2*Q10_TIMEOUT,- 
DEADLOCK WAIT,RO 
#-10000000,R0,#0,- 
DEADLOCK_MSG_fIME 


SSCHDWK_S DAYTIM = 


DEADLOCK _MSG_TIME 
S_ENBFLG = #0 
Dd gpe een COU 


1 

DEADLOCK _COUNT,=- 
DEADLOCK _COUNT 

S ENBFLG = #1 


SSETAST_S ENBFLG = #1 
SCANWAK"S 
NODE_CHANS.R7 


NODE “NAMES .RB 
DEADCOCK_MSG,R10 


(R7) 

beris V_DEADNODE 
etRBS 71208 ‘ 
(R7) ,=(SP) 
#5,MASTER_READ 
RO.120$ 

(R10), 2(R10) BUFFER 


120% 
ADLOCK_VICTIMS 


7 
as. 


BEABLOCK VICTING 


DE 
(R 
(R 
11 


PTR,- 


T 


STR = VICTIMS_MSG,- 
BUFFER 
z DEADLOCK. VICTIMS 


EXT! STS$K_ERROR 


; Did we find any nodes for deadlock? 
; BR if not 

; Compute a time to wait... 

; «..tO hear about a victim process 

; Convert seconds to delta time 


; Wait for some process to be chosen 
; BLKAST a ye next code would be bad 
; Any slaves who 

; «eethey'’re deadlock v 
; Indicate that we can SWAKE from $HIBER 


; End of non-interruptible code 


don't yet know if... 
ctim? BR if not 


DEADLOCK_COUNT is consistent again 

We oey have aWAKEned early from SHIBER 
Used to loop through DECnet channels 
Used to loop through node name descs 
Set up convenience register 


; Have we another channel? 


BR if not = check results of our poll 
Skip trying to read from this node... 
e+e1f we already know it's broken 

Set up the channel... 

«+ethe node name... 

.+.and our message name 

See if this node was deadlock victim 
Skip the rest if DECnet error 

Was this node a victim? 


no 
Count it if it was 
Point to the next possible channel 


Point ot the next possible name desc 
Loop to poll the next one 


: Rave we exactly one deodleck victim? 


fso-a 


: Make a noise if not 


"SSEb=1986 18:00:07 LOETPSY.SRESGe Yet iGo0.man:1 28° 8, 


h surviving node has been told to take out a lock on a resource held 
some other node, a situation that should result in deadlock. Wait 
nough for deadlock to have been detected and a message sent to us 
See if deadlock was properly detected. 


<c 


vousbo8 soup argon tegration fetta: TECRESISES QRD8:O% YAYOME.SRESBC¥O7BBo mans a 89 
1DAD' CF soe 1e¢$ CALLS #3,ERROR_SIGNAL 
1408: 
4 1644 RSB 
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vss UCUAGTG' SME APSATLE Eth TEREFCSEL QBMBIRS AEGEE SEGDEVOBBo.mnsn "C8 


CHECK_DEADLOCK = See If Deadlock Detecti 6-SEP-1 


f : AST routine for blocking ei from a slave process when that slave has 
; discovered whether or not it's a deadlock victim. ve aeep track of 
; the number of slaves who don't yet know and Limit the time the 


master 
3; process SHIBERnates while waiting to be told. 


164 
i 
1828 
Bes jes) 
18 : 200$: 
0000 } «WORD “M<> 
12 sand 1F OE 1888 BBC #31,DEADLOCK_COUNT,210$ ; BR if master is not going to $HIBER 
080'CF bg D 16 6 INCL DEADLOCK. COURT ; We're SHIBERnating. Count down... 
we 1 } 19 on: 0$ 3; «--and BR if tally is not final 
1 8 WAKE_S ; ALL slaves have reported back 
a oF 1826 210$ ne 
OO80'CF 07 pase 1661 DECL DEADLOCK_COUNT 3; Slave reported back quick |y 
1906 220$S: 3 We don't know if we have final... 
Q0084'°CF D0 73 «166 MOVL DEADLOCK_LOCKID,- 3 «eeyet, SO we must re-enable... 
0030°CF 77 1664 QUAD_STATUS+4 : ..eBLKAST for other slaves 
OB7A 1665 SENQW_S EFN = #SS_SYNCH _EFN,= ; Set up BLKAST for another slave 
OB7A 1666 LKMODE = #LCRSK_EXMODE,- 
OB7A 166 LKSB = QUAD _STATUS,- 
OB7A 1668 FLAGS = #LCKSH_CONVERT ,~ 
OB7A 1669 BLKAST = 200$ 
0896 1670 


04 RET 
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Vbacb08 GET_DEADLOCK - Participate in a Cluster- aes et 98:b0s47 LOE TPSY .SREIGE TCL 1G00.MAR: 1 . (17) 
~SBTTL GET_DEADLOCK = Participate in a Cluster-Wide Deadlock 


p++ 

; FUNCTIONAL DESCRIPTION: 

; See if cluster-wide deadlock detection works. Take out another lock 
at the master's request. This one should ultimately result in a 
deadlock, though. 


; IMPLICIT INPUTS: 
Name of a resource for us to lock, by way of message from master 


PAPA AOCOOCOAO 


+©.000009 0900 0900090909 SININI INI ININ 


97 1 
$37 | g 
ay ieee | 
97 1 § : 
97 1 : 
97 1 8 3 
B95 i 0; 
4 1 3 process. 
97 16 : : IMPLICIT OUTPUTS: 
4 1 : 3 NONE 
B97 16 6 : SIDE EFFECTS: 
B97 1687 ; Resource name is locked. 
97 16 8 ; Deadlock or timeout. 
97 1689 ; 
Br ese i 
97 1998 GET_DEADLOCK: 
59 ODBF'CF DE 0B97 169 MOVAL TAKELOCK_MSG,R9 ; Set up convenience registers... 
5A ODD2'CF «=iE «OBS «(169% MOVAL QUEUELOCR_MSG,R10 pe 
59 DD Al 1695 PUSHL R9 ; Define the type of message we want 
16D0'CF 01 £8 AS 1696 CALL #1,SLAVE_READ ; Get the master node's message 
OAA2'CF 02 A9 69 é AB 1697 CMPCS © (R9),2(R9) MESSAGE_BUFFER ; What does the message, say’ 
1¢ 13 OBAF 1698 BEQL 10% ; 6R if it says “TAKELOCK" 
0 "CF DF rt 13%) PUSHAL NULL ; Otherwise,... 
wee +4 ass 1700 St rg RG? en MODE DESC 
1B47°CF O03 FB des 1708 CALLS #3,GARBLED_TRANS . “gasignal the error 
th \? Z 108 SEXIT_S CODE = #UETPS_ABENDD! STS$K_ERRO !STSSM_INHIB_MSG 
5B 53 0° OBCD 1705 ; MOVL R3,R11 3; Save ptr to resource name in msg 
OOCF 'CF 00¢7 CF 2 9809 1706 MOVC3 UETPSCLIG,UETPSCLIG+8,- : Set up... 
06 28 OBDA 1708 MOVC3 M#NODE_LENGTH,- , wes 
S55 OE on BRE 1S move, SAE AORTA) 
63, 8 06 e4 iri) MOVCS  #NODE CEN TH.(R11),(R3) j ...the resource name... 
63 68 06 2 E 1348 MOVC3 #NODE CENGTH, (R11), (R3) : ...that we're supposed to lock 
4 gece’ et D F 1714 MOVA BUF F ; Set up a pointer... 
OCBC'CF bine ote bE : ay A yt Sore BUFFER PTR 3 ee.tO that name 
C 1719 S$FAO_S CTRSTR™= DEBUG_TAK_LOCK_MSG,- ; Set up a program trace msg 
C 718 OUTLEN = DEBUG_PTR,- 
; 171) ‘ TBUF = . BUG_FA BUF ,- 
= 
F91 C15 (1721 SBW GIVE_DEBUG_MSG 3; Issue it, if appropriate 
. ” C18 1788 See TAST_¢ ENBF EG o-#0 : Synch lock AST with DeCnet writes 
C 17 SENQ_S LKMODE = #LCKSK_EXMODE.- ; Try to lock the resource 
C21 1724 LKSB = QUAD_STATUS,- 
C21. 1725 RESNAM = PuFFER PIR. 
C21 17 § ASTADR = 100$ 
50 90" +} C g 17 CMPW “#SS$_NORMAL ,RO ; Are we queued for the lock? 
3 0C45 1728 BEQL 0$ ; BR if so - we're OK 


<c 


a 9 
TP ster Integration Test 16-SEP-1984 00:19:0 AX/VM o V04-0 _, Page 
v ichbge CET DEADLOCK Pa Siclpaes tn a Cluster- -$FE= 138s 98: :00:4 3 LOeTPsy Y.S RESEYCLIGOO.MAR:1 (39) 
1BC3'CF jt PB 7h) 3 8 CALS Ro TUS PIR TO_TEXT ; Get text for our result 
' STATUS 
ood |: 
0074113 OD C 17 § PUSHL FUETPS. Ul aaa alta 
Bre Se Hee ins Bes BE 
761 134 it} ! ROR 
88 } 2 DD OC 17 PUSHL #UETPS_TEXT!STSSK_ER net ony mak tes etal ate 
sean ss coh 5 po ese erimegee BGI, : seat Bg tee for deadlock “ 
C6F 1739 208: 
02 ‘. 28 oF 179 mMOovVCc3 MG PT AA dP Set up msg = see hal 
| -that I'm queued for the loc 
~ oe cr “te a8 £76 1508 Move? HNGDE LENGTH, Scsug i —_— include deadlock checkirg interval 
7% eich DD C81 1744 Stee! ‘ Define the type of eecenyy | we _ wane 
jt FB cet 1745 LLS #1,SLAVE_WRITE : Tell master node that 
vias C88 174 $SETAST -) ENBFLG-= #1 : Synch lock AST with sbetnet "ites 
78 8F C1 Nes 1549 ADDL3 ~#2*Q10_TIMEOUT,- 3; Compute a . to w 
$0008 . 0C97 1748 DEADLOCK _WAIT,RO § .to see if w ot ny Lock 
00 = =«— 50 +P 67e980 St 7A 3 1749 EMUL SRB gO th : Convert secenas o delta time 
stato as 1539 SSETIMR ait Beers NCH_EFN Wait for deadlock resolution 
CA6 175 “DAYTIM = DEABLOCK _ASG_ timé,- 
a3 1538 ASTADR = 200$ 
§c83 15e¢ SCART IA’S 3 Deadlock resolved or timer went off 
OOCF'CF OOC7"CF 28 beeo 1756 MOVC3 “UETPSCLIG,UETPSCLIG+8,- ; Set up... 
a 28 a 158 MOVC3 eN0ps 5 .the resource name. 
BF Nf ce Bees Ft 3. «2B RASTER NODE (3) : -that the master has locked... 
- aul Seca CF ee OCE? 158 MOVA BUFF : i..im order to get blocking ASTs 
—' hate: bcee 1588 Send $ ee ones WERSK. EXMODE,- ; Try to lock the resource 
See ieee : SESHAM = suePeR iA’ 
CEC 1765 = : 
° 7 A e ed vor the lock? 
0 Oh BBE? Ze Gay SggtSh-NOMMLRO Breve gud. foro 
0 oD D 176 PUSHL 
. Pi STATUS _TO_TEXT ; Get text for our result 
a ad OF af Hi PUSHAL STATUS_PTR 
1 OD OD 
#UETPS_TEXT!STSSK_ERROR 
co7esnaeee BP IP Hire Fut, AUELTROPERTSE 
OOF 09 er OD D $k ERROR 
a7 741132 8F DD OD2B 1775 PUSHL #UETPS$ ren ists K_E : x i hake a oe 
sad veel chs D } 1555 CALS 00 .5RRR : ap hyd PP Fe ’ 
D36 «©1778 30S: 
05 0D36 1538 RSB 
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K = Partic pate in a Cluster- ae 90: 48:99 YOETPSY. SRETUEYCL 1600. MARS 1 oe (18) 


AST routine for when deadlock is detected or lock request is otherwise 
resolved. If we timed out and already dequeued our locks, either deadlock 
was not detected ol other systems have been slow to dequ .neir locks. 
If we're the victim, everything is fine. If ug get our lock, some other 
system must be the victim and everything is stil 


fine. In any case, 
dequeue all locks. 4 


00$: 
» WORD “M<R2,R3,R4,R5,R9,R10> 
MOVAL DEADLOCK_MSG,R10 ; Assume we're deadlock victim 
MOVAQ BLANK_LINE,R 
CMPW © #SS$_BEADLOCK,QUAD_STATUS ; But are we? 
BEQL 1 : we are 
MOVAL QUEUVELOCK_MSG,R10 ; Anything else is of no importance 
1900 MOVAQ NOT_MSG,R9 
MOVAL SCSNODE,RO 
SFAO_S CTRSTR = DEBUG_DLOCK_VICTIM_MSG,- ; Set up a program trace msg 
OUTLEN = DEBUG_PTR,- 
OUTBUF = DEBUG_FAO_BUF,- 
P1 = #NODE-LENGTH,- 
P = RO,- 
= R9 , 
BSBW 443 DEBUG_MSG ; Issue it, if appropriate 
MOVC3 (R103,2(R10) ,MESSAGE_BUFFER ; Set up the message 
PUSHL R10 ; Send our status... 
CALLS #1,SLAVE_WRITE 3 «--to the master node 
SDEQ_S FLAGS = MLCKSM_DEQALL ; Allow other nodes to get locks 
SUAKE_S ; Allow the test to get going again 


The timer used to allow deadlock detection to occur has gone off. 

If we're not the victim or deadlock was not detected, releasing locks allows 
the AST from the SENQ to be delivered. We'll send a message to the 

master process from that AST routine. 


500s: 


-WORD “M<> 
epee.s FLAGS = MLCKSM_DEQALL =; Allow other nodes to get locks 


<c 
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FILE_ACCESS = See If We Can Get to Clust SEP=19 UETPSY. SREIGEYCLIGOO.MAR; 1 (19) 


wl -SBTTL FILE_ACCESS = See If We Can Get to Cluster Files 
; FUNCTIONAL DESCRIPTION: 


or each node in the cluster (NOT hecesser thy VMS node), create a 
feyg on gone disk local to that node. The file will be in the 


1 
1880 
1831 
1838 | 
DB2 1834 ; SYSTESTJ directory, which may or may not be in a rooted directory 
DB2 1835 ; (same algorithm as the UETP disk device test). Warn if for some 
DB2 1 § 3 reason we could not create the file. Write, read, extend, share 
s : 3 access with a friend, and delete the file. 
DB2 1 : ; IMPLICIT INPUTS: 
+ ! i? 3 The List of cluster nodes and devices from UETPSCLSIODB 
DB2 1 i: 3 IMPLICIT OUTPUTS: 
Opes 1844 ; Pret 
ODB2 1845 ; SIDE EFFECTS: é' 
DB2 1 rf 3 Temporary file on various cluster accessible disks. The file spec 
DB2 1847 ; Will look Like: test-node$ddcu:UETPSCLIG_master-node.TEST;1. 
ODB2 1848 ; 
Opa 1BS0 ° 
0DB 1881 ; R6 through R10 have specific purposes by this upper level routine. They 
DB2 1 26 ; may be yeteted by some of the subroutines, but not trashed. 
DB2 1853 FILE_ACCESS: 
56 OOA2°CF 00 fos 1328 108 MOVL CLSPTR,R6 :; Point to SID records 
11 A6 OO99"CF D1 ODB7 1856 CMPL VMS ,UIDSIDST_SWTYPE(R6) ; Is this a VAX/VMS node? 
ODBD 1857 BNEQW 20$ ; BR if it is not - fewer tests 
DC2 1858 SSETSFM_S ENBFLG = #0 ; Turn off SS errors 
32 AG «6OF «6(ODCB «O1859 PUSHAB UIDSIDS$T_NODENAME+1 (R6) ; Fix up a temp string descriptor... 
7E 31 A6 QA ODCE 1860 MOVZBL UIDSIDST_NODENAME(R6),-(SP) ; ...for the node name... 
52 SE 00 ODD2 1861 MOVL SP,R2 3; «--and a pointer to it 
QdDD5 1 6 SGETSYIW.S EFN = #SS_SYNCH_EFN,- ; ...while c eck ing to see... 
ODDS 186 TosB = QUAB_STATOS,- ; ...if this node is in our cluster 
ODD> 1864 TMLST = OTHERNODE_ITMLST.- 
44 1992 NODENAME = (R2) 
25 08 cO ODEC 1 96 ADDL2 #8,SP ; Pop temp string descriptor from stack 
5 50 DO OQDEF 186 MOVL RO,R2 ; Preserve the return status... 
DF2 1868 SSETSFM_S ENBFLG = 3; ..ewhile resuming SS error checking 
3} 52 €9 QDFB 1 4 BLBC R2, ; BR if it is not a member 
1C OO2C'CF E9 aa 1870 BLBC QUAD_STATUS,30$ ; BR if it is not 
17 0090'CF  E9 EO 4 oo: BLBC = CLUSTER_MEMBER, 30S : BR if it is not 
55 O07 AB OD SE O8 187 MOVL UIQSEOSL_POFL (RG) 85 ; Have we any path to the node? 
| ae phe 1874 BEQL $ ; BR if not 
03 Bi OE 1875 CMPW #PBSC_OPEN,- : Is the path to this node open? 
07 Ad E10 187 ADPATHSU_STATE (RS) 
12 QE12 187 BNEQ % ; BR if not 
02 1 EF QE14 187 EXTZV #PBSV_STATE,#PBSS_STATE,- ; Is the path... 
54 0D AS E17. 187 UIDPATHSB_RSTATE(R5) LR 
54 1 ela } 9 cree PASC _ENAB RA in’ ste this node enabled? 
: s 
SA 1A6 QA OQEIF 1 ; 30$ MOVZBL UIDSIDST_NODENAME (R6) R10; Get the Length of the node name... 
59 2A6 YE OE ; 1 MOVA UIDSIDST-NODENAME +1 (RO) ,RO 3 ...and its addres 
E 1884 SFAO_S CTRSTR = MEMB_PATH,- ; Conpte n that we can't... 
E27 1885 OUTLEN = BUFFER_PTR,- ; ...test this node... 
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V {548 FILE_ACCESS = See If We tan Get to Clust ety Pi 9b O0ss7 LOE TPSY. SREIGETCL 1G00.MAR; 1 . (19) Vv 
E 1 § OUTBUF = fA .BUF .~ i «for remote file access 
ab BE 
= 
e5e 1 § SEUTAss_5 MSGVEC = MEMB_PATH_PTR 
ro - 39 caf ! oy 40s BRB 0$ ; Loop for the next node 
57 41 ag 20 £2 1 35 MOVL DSIDSL_DDB(R6) ,R7 ; Get first possible DDB attached to SID 
0 1 E 189 BEQL 3; Don't process it if there are no DDBs 
58 07 A? 00 : ! 9¢ 50s MOVL UIDDDB$L_UCB(R7) ,R8 ; Get the first UCB attached to DDB 
, PS E5B 189 BSBB 100$ ; Set up a FAB for a Likely file 
32 50 € £28 } 3 555 BLBS RO 80S ; BR ‘T we have a candidate 
5A 31 AGB QA £80 1899 MOVZBL UIDSIDST_NODENAME(R6),R10_ ; Get the Length of the node name... 
59 32 A6 SE 0E64 1900 MOVAB  UIDSIDST“NODENAME+1(R6),R9 : ...and its address 
OE68 1901 SFAO_S CTRSTR = NO_FILE_NODE,- ; Complain that we can't... 
0E6 1306 OUTLEN = BUFFER_PTR,- 3 «e-test this node... 
0E68 190 OUTBUF = FAO_BUF,- 3 «+efor remote file access 
0E68 1904 P = R10,- 
0E68 1905 P2 = R9 
OE7F 1906 SPUTMSG_S MSGVEC = NO_FILE_NODE_PTR 
37 = 11 «~QE90 §=1907 BRB 80$ ; Loop to the next node 
OE92 1908 60$: 
9193 30 OE92 1909 BSBW 200$ 3; See if we can create a file 
C3 50 9 OE95 1910 BLBC RO,50$ ; Get the next candidate if we can't 
0186 30 O&98 1911 BsBu «8=ss«-306$ ; Write and read a block of the file 
OD 50 9 OE9B 1318 BLBC RO,70$ ; Get rid of the file if we've an error 
O1FE 0 OE9E 191 BSBwW 406$ 3; Choose a slave to share access to file 
07 50 €9 OEA1 1914 LBC RO, 708 ; We're done with file if no sharing 
51 DD OQOEA& 1915 PUSHL R1 ; Value from 400$ routine is in R1 
1106'CF 01 FB OEA6 1916 CALLS #1,500$ 3; Share access with a slave 
OEAB 1917 70$: 
QEAB 1918 SCLOSE FAB = RF_FAB,- 3; We're done with this file... 
OEAB 1919 RR = RMS_ERROR 
OEBA 1920 SERASE FAB = RF_FAB,- 3 «+80 get rid of it 
OEBA 1921 ERR = RMS_ERROR 
gece 19 ¢ 80$: 
56 66 DO OEC9 19 MOVL UIDSIDSA_FLINK(R6),R6 ; Point to the next possible SID record 
ECC 1924 BNEQW 10% ; Loop for another node if there is one 
0383 30 OQOED1 1925 BSBW 600$ ; Tell all slaves to end file access 
05 ED4 1926 RSB 


D 10 
UVETCL1GOO VAX/VMS UETP Cluster Integration Test 16-SEP-1 9:0 AX/VMS Macro V04-0 Page 4 
V a8 FILE_ACCESS = See If We tan Get to Clust g- EP=1 198 98: 8; 98 yietPsy. ORE IUEY EL 1400. MAR; 1 . (20) 
—DS 1 100$: ; Set up a FAB for a Likely file 
38 3 a 13 iit a : Have we run run out of UCBs on this DDB? 
z 9 ED9 19 CMPB S*#0C$_DISK,- 3; Is this vce” for a disk? 
09 A EDB 19 g VIDUCBSB_DEVCLASS (RB) 
OA is EDD 19 BNEQ 0 ; BR ifn 
00" € EDF 1934 BBS S*#DEV$V_CLU,- BR if the disk is cluster available 
15 OF A EE1 1935 UIDUCBSL DE VCHAR R2(R8), 136s 
6 DO OEES 19 $ MOVL YABYSOSA_FLINK(R ),R8- ; It's not,. 
ec 11 344 13 S 1108 BRB 0 3 «eeSO try the next disk 
57 gf D EEO 1939 MOVL UIPOOSSA_FLINK CRT) .A? ; Get next DDB - no shared disk UCB 
a EEC 1940 TSTL ; Have _ om out of DDBs on this node? 
Pee BEE 1941 BNEQ 1g0e ; BR if n 
50 D4 OEF 1306 CLRL R ; ladleaee a problem if we have... 
05 OEt 1307 1208 RSB 3 «e-and return with that error 
58 07 A? DO OEF 1945 MOVL UIDDDBS$L_UCB(R7) ,R8 3; Get the first UCB for this DDB 
11 OF 1306 BRS 100$ 3 Check to see if it’s OK 
OEF9 1947 1308: 
50 31 Ag 98 were 1948 MOVZ7BW yrs fost Le peep hy RO ; Get the Length of the node name 
1657'CF 50 g 81 ere 1949 ADDB #2,RO,RF_FAB+F Keep punning count of it + overhead 
0 28 OFO3 1950 MOVC RO.UIDSID$1 ONODENARES1 (RA) = Move the nodename into filespec 
171F °CF OFO? 1951 RF _FILESP 
24 «90 As 1326 MOVB #*K/$/,( Append delimiter (overhead) 
50 OB A? 9B OFOD 195 MOVZBW gipopagt HAME(R7), RO Get the Len be of the device name 
1657°CF 50 80 OF11 1954 ADDB RO,RF_FAB+FABSB_FNS Keep a runn count of spec Length 
63 OCA 50 ¢ pris 1955 MOVC RO. UIDD DBST NAME*1 (R7) ce : Concatons e the device name 
Ocec'cF 05 3c OF1B 1956 MOVZWL UNIT. PENGTRS BUFFER_PTR ; We have to get... 
02 DD OF 3 195 PUSHL #2 : auc 
01 DD OF 1958 PUSHL #1) ae 
OCBC'CF 7F F24 1959 PUSHAQ BUFFER_PTR 3 
07 AS 3F OF28 1960 PUSHAW UIDUCBSW Pumen ine $ ++. the device unit _mumber. + 
00000000 ' GF 04 FB F 1961 CALLS #4,G*OTSSCVT verted t 
OCc4'cF 05 20 F 1968 SKPC) 30s #*A/ /, PUNIT -LENGTH. BUFFER’: “Strip eh A, Slenke 
1657'CF 0 F 196 ADDB 0,RF_FAB+FABSB $B_FNS 3; Keep a runaing Couns of peer Length 
63 1 2 F3D 1964 MOVC 0, (RT), (R3) : Concatenate the unit number 
: A F41 1965 MOVB “A214 (RS) Append delimiter (overhead) 
1657°CF C7'CF F44 1398 ADDB UETPSCLIG,RF_FAB+F FNS 3; Keep the es count 
63 OOCF'CF O00C7'CF 3 196 MOVC UETPSCLIG UETPSCLIG+8,TR 3) Concatenate of filename 
06 20 3A OFS 1968 LOCC i ANODE.LENGTH. ; strip trailing Tanks... 
0042°CF £28 138 4 cenope : +. from the master node name 
> °F 3 OFS9 1970 SUBL RO, #NODE_LENGTH,RO Get its true length 
1657'CF é F5D0 1971 ADDB RO,RF_FAB+FABSB_FNS ; Keep a running count of spec Length 
63 0042'CF F6 13/6 vc RO, SCSNODE, (R3) Concatenate miel of the filename 
1657'°CF E7°CF F68 197 ADDB DOTTEST RF FAB+FABSB_FNS ; Keep a running count of spec length 
63 OOEF'CF eee ot 1974 OVC TTEST,DOTTEST+8,(R3) ; foncatenste the file type 
6 7°CF F7? 1975 MOVZBW RF_FAB+EABSB FNS, - ; Save the Length... 
1717°CF fre 1378 “FILESPEC_BESC 3 «+.1M case we need it for error msg 
O0rg ce 90 OF7 1308 MOVB SYSTEST_DIR,-=- ; Set up a default directory 
658'CF FB2 197 RF _FAB+FABSB_DNS 
wore cE 9E F 1980 MOVAB SYSTEST_DIR+8,- ; Tats allows ‘re-form without... 
655°CF F89 1981 RF _FAB+FABSL ONA 3; .--having to re-form ere filespec 
1633'CF 1 D F ‘ 19 § MOVL #1TRE OFABSPABSL ALQ 3; Get a tious allocat 
9 .-; 8 F 19 MOVL ; Indicate that we have a candidate 
68 00 OF94 1984 MOVL  UIOUCBSA_FLINK(R8),R8 =: Point to the next UCB on controller 
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V FILE_ACCESS = See If We Can Get to Clust 6=-SEP-1984 :00:4 UETPSY.SRCJUETCLIGOO.MAR;1 (21) Vv 
43 19 7 200$: : See if we can create a file 
OOFF 8F 00 00 8F 00 2C OF 1 8 MOVCS #0,#0,#0,#NAMSC_MAXRSS,- ; Ensure that the result of any... 
181E'CF FAQ 19 RESULT_FILESPEC ;_..-previous SCREATE is gone 
FAS 1990 SCREATE FAB = RF_ ; Make a file (we hope) 
58 0 FS Fat 1991 BLBS 0,21 ; BR if we succeeded 
162B'CF  00000000'8F 01 OFB 199¢ CMPL  #RMSS_DNF,RF_FAB+FABSL_STS ; Did we get directory not found? 
6 5 FBA 199 BNEQ 220 ; BR if not = we have no hopes 
QO107"CF 9 FBC 1994 MOVB SYSO_SYSTEST_DIR,= ; We did. Try for rooted directory... 
658'CF FC 1995 RF FAB+F ABSB_ NS 
He 9E FC 1338 MOVAB SyYSO SYSTEST_DIR+8,- S$ «as 
16 "S FC 199 RF _FAB+F ABSL NA 
OOFF 8F 00 00 8F 2C OFCA 1338 MOVCS #0,#0,#0,#NAMSC_MAXRSS,- ; Ensure phat the result of the... 
181E'CF FD2 199 RESULT_FILESPEC ;_.«-previous $CREATE is gone 
FD 000 SCREATE FAB = RF_F 3 Try again for the file 
OF 50 «EY 43 3} 2108 LBC RO,220$ ; Finish up with message if error 
FE 88 SCONNECT RAB = RF_RAB,- 3; Attach a RAB to our FAB 
FE f sone ERR = RMS_ERROR 
01 BB OFF 0 $ PUSHR #*M<RO> 3; Save RMS status 
51 0B60'CF Df FF4 200 MOVAL DEBUG FILE_MSG,R1 ; Assume we created the file 
05 50 € FF9 2008 BLBS R $ ; BR if that was the case 
51 OB7D'CF ODE one 4 2308 MOVAL DEBUG_NOF ILE_MSG,R1 ; Get a different message if not 
52 1717"CF ODE 1901 011 MOVAL RF_FILESPEC_DESC,R2 
1006 big SFAO_S CTRSTR = (RT),- ; Form a debugging message 
1006 201 OUTLEN = DEBUG_PTR,- 
1006 2014 OUTBUF = DEBUG_FAO_BUF ,- 
1008 3016 “Bei 
08868 30 1018 2017 BSBW GIVE_DEBUG_MSG 
01 BA 101E 2018 POPR #*m<RO> ; Restore RMS status 
05 1020 2019 RSB ; Exit with the last RMS status in RO 
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1021 300$: ; Write and read a block of the file 
5A 8F 00 4 90 2c 1 } MOVCS a #0, #PATTERN_1,- ; Write some garbage... 
OCC4'CF  010D BF ? ; wee Texte, x16 SIZE BUFFER ilo teaa 
10D 5 ERR = EAS Mee : 
5F 50 €9 103C § suet 3 
103F REWIND RAB = 3 «+-and see if... 
103F g ERR = RMS RERROR 
4050 €9 1 ef BLBC 
1 ; ? $GET RAB = 3 «ewe Can reread it... 
1051 ERR = RMS RERROR 
38 0 9 1 $0 § BLBC 
5A 8F 00 8F D1 CMPCS #PATTERN_1,- 3 «correctly 
OCC4'cF 010D 1069 4 ‘ Ho. SIZE BUFFER 
A 13° «1 of 5 BEQL 310$ ; BR to clean exit 
7E 3. OA 18 1 8 8 MOVZBL (R3),-(SP) 3; Save the bad ~ 9p 
QOOOO0SA 8F DD 1074 aay’ #PATTERN_1 3 «eethe good dat 
7E 0000010D of 2 C3 107A 2038 SUBL Re .aTEXTS SIZE,-(SP) 3 oeethe offset m the bad data... 
00F0004 BF dD 1086 2040 punt Boer ObBer ec =Dese Pypteesen 3 
007480) 018 8F DD 108 041 PUSHL #UETPS$_DATADEVERR aa -.and the error code... 
1DAD' 06 FB 109 6 CALLS #6,ERROR_SIGNAL 3 «e-SO we Can warn of the error 
50 D4 132 04 CLRL R : Indicate that we had an error 
03 11 1998 99 bee 3108 BRB 3208 
50 01 400 1998 Ba8 MOVL #1,R0 ; Indicate success 
109E 2047 320$: 
05 109E 2048 RSB 
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FILELACCES 


400$: 


4408: 


SINS NNO OOOO 
= = 
an wn 
So om 
bod ee 


ré 
~ 
So 
Cad 


FW O ODNA NEW 9 ODNAOU EWN 0 ODNOAU ES WhO 


ooono 


MOVZWL 
MOVAL 
CLRL 


AOBLSS 
CLRL 
CMPL 
BNEQ 


MOVAL 
SFAO_S 


10 
“SEP=1 


F _FILESPEC_DESC,R3 
FILESPEC,R4 


R 
R 
R 
( 1 
R 
R 


cal 
1 
R4)+R 
3.4168 
NODE _CHANSCR31 
430$ 

#MAX_NODES ,R3,420$ 


OUTLEN = DEBUG_PTR, 
OUTBUF = DEBUG_FAQ 
= 


GAVE DEBUG _ASG 
R 


#1,R0 


or shared access. 


H 
S'=‘See if Ue tan Getto Clust ‘S-seP-1o8e $O:o0:e? LuetPey. sResuEveL 


UETPSY.SRC 


Choose a slave to share file access 
R1 returns an index for chosen 


; Use the filespec as ne input to a hashing function so we can pick a 
; random” slave node 


We will... 

...use @ random’ seed... 

«+-tO Sum th {*Uospec chars 

(Note that R35=0 when we fall thru) 
Start counting assigned channels 


Is this the first unassigned channel? 
We've finished ep st 90. 
° s 


; Keep counting up to en 


Have we any assigned channel? 

BR if not - no slave to share access 
Set up for EDIV dividend operand 
Normalize ‘‘random'’ channel 

Prevent endless loop searching 


BR if the slave is OK... 

-+.tO check shared access 

It's not, point to next possible slave 
Wrap around if we're beyond valid ones 


Have we an endless loop? 
BR if not - do further checks 


; We're out of possible slaves... 
CTRSTR = DEBUG_NOSHARE_MSG,- 


; «let user know if debugging... 


3 «e.and indicate that we've failed 


Indicate that we have a candidate 
R1 has the index of the slave 


CLI «MAR; 1 ee (38) 
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11 $ 5008: $ itgve a slave share access to a file 
07¢0 1} «WORD “M<R6,R7,R8B,RI,R10> ; R2 through RS may be trashed 
51 04 ac 11 § MOV 04(AP),R1 : Recall index for node to share access 
7 BoAA CF4 11 ? MOVAW MOE ANSE RI dR? ; Point to our DECnet channel 
8 AA ste) 11 1 MOVAQ NODE _NAMESLR1J,R8E ; Point to our node name 
9 DE7*CF DE 111 1 § MOVAL ACCESS _MSG,R9 ; Set up convenience registers... 
DEF CE p 111D 21 MOVAL CONTINOE_MSG,R10 pom 
OAAg CF 209 69 11 104 MOVCS (R9),2(R9) MESSAGE BUFFER ; Set up message type 
0 Qt D ef 69 AS 11 105 SUBWS «= (RO) ,ATEXTB SIZE,RO ; Figure space available for message 
1 1676'CF 110F 21 : MOVZBW RF_NAM+NAMSB_RSL.R1 ; Figure Length of filespec 
1134 2107 ; CMPW RO,R1 ; Have we enough room? 
1134 21 3 3 BLSS ; Should never be problem, by definition 
ae 4 a 2c is $ 1s MOVCS 2) BAF RN PMANSL RSA.@ ; Pass the filespec as our message 
5 3¢ Ss 113C Wt MOVZWL (R?) ,=(SP) ; Set up the channel... 
3 DD 113F 16 PUSHL R 3 «e-the node name... 
DD 114 11 PUSHL R 3; .+.and our message name 
1922'CF 3 FB 114 114 CALLS # oBASTER_URITE ; Tell this node to access our file 
114 115 BLBCW RO,550$ : Skip the rest if this node died 
7E 67 «3C «(116 116 MOVZWL (R?),-(SP) ; Set up the channel... 
8 DD 11 11 PUSHL R 3 «eethe node name... 
DD 11 118 PUSHL R 3; «and our message name 
19B80'CF O03 FB 11 11 CALLS #3,MASTER_READ ; See if the node got to our file 
115A 2120 BLBC RO he 1 ; Some error, skip the rest 
OCc4'cF O02 AD 69 * 11 ! 121 CMPC (R9),2(R9) ,BUFFER ; Did we get the reply we expected? 
16 11 1 ¢ BEQL ; BR if we di 
ase 4 24 ; ? Ae rag + eae dat 3; Complain if we did not 
DD 119% 125 PUSHL R9 
1B47'CF F 1171 1 § CALL #3,GARBLED_ TRANS 
02 A& AB 1176 21 BISW #CLIG_M_DEADNODE,2(R8) ; Mark the node as unuseable 
4 117A 21 8 CLRL R ; Indicate that we failed 
010 1 a } 5108 BR iw 550$ ; Skip the rest - node is incoherent 
49 6 EB 117F 21 ? LBS (R3) ,520$ :; BR if node could access the file 
DD 11 1 § PUSHL (R3) ; Otherwise get the error status 
1BC3'CF 1 FB 11 1 CALLS #1,STATUS_TO_TEXT ; Convert it to something we can type 
54 1717°CF 7E 1189 2134 MOVAQ RF_FILESPEC_BESC,R4 
118— 2135 SFAO_S CTRSTR = SLAVE_NO_ACCESS.- ; Tell the user what happened 
118E 21 § OUTLEN = BUFFER_PTR,- 
118€ 21 TBUF = FAO_BUF,- 
118E 21 Pe = R8,- 
11 1 § P2 = R4 
fee TT DD TTA. Sia) PUSHED ay US=PTR 
00741132 BF DD 1a Vb SHL #UETPS_TEXT!STSSK_ERROR 
F000) BF DD 1B S144 PUSHES wx 0001 
zat 2 8F oD 1109 145 PUSHL ETPS_TEXT!STSS$K_ERROR 
1DAD ‘CF FB 11C 196 CALLS @# /ERROR_SIGNAL 
4 1168 14 CLRL R :; Indicate a failure 
0088 1 1168 1? 5208 BRW 5508 ; Skip the rest for this file 
a e. 00 oro 90 2c tS ! MOVCS 4 Tis Ps hat Pe ; Set up a second record for the file 
woe Boos : 117 152 $PUT RAB = RF_RAB,- ; Write that garbage, too 
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vee FILE_ACCESS = See If We Can Get to Clust moet 9b: bbsg7 YOETPSY. SREIUETCL IG 0.MAR;1 ° (3k) 
110721 ERR = RMS_ERROR 
11E 154 ; BLBC 0,550$ ; No point in checking errors - ... 
11E 1 3 «the slave must try to read 
11E 1 $ SFLUSH RAB = RF_RAB,- ; Ensure that it gets out to our file 
1166 21 ERR = RMS ERROR 
11F 1 8 ; BLBC RO,550$ ; No point in checking errors - ... 
11F 1 ;_..-the slave must try to rea 
OAA2"CF 02 AA 6A 28 11F5 2160 VC3._ (R10),2(R10) ,MESSAGE_BUFFER ; Tell slave to read the next block 
7E 7 C #WiFC 21 MOVZWL (R7),=-(SP) ; Set up the channel... 
8 OD 11FF 21 USHL R8 3 «eethe node name... 
A OD 1201 21 PUSHL 810 i ..-and our message name 
1922'CF fe 1 ; 192 CALLS # *BASTER WRITE ; Tell the slave to read second block 
78 4 1 165 BLBC RO,55 3; Skip the rest if there's an error 
7E § ¢ 1 166 MOVZWL (R?),-(SP) ; Set up the channel... 
. 16 PUSHL R8 3 «eethe node name... 
5A DD 121 198 PUSHL R10 3 «and our —"~ ¥ name 
19B0'CF 2 FB 121 18 CALLS #5 -BASTERREAD ; See if slave read second block 
6C 9 121 170 LBC RO,550$ ; BR if slave had trouble 
OCC4'°CF O02 AA $8 °3 : iA Ve} he (R10) ,2(R10) .BUFFER : pie ye get the reply we expected? 
: we 
re . : ; 178 A ge | tm :; Complain if we did not 
5A DD 1229 175 PUSHL R10 
1B47'CF 03 F 1 8 176 CALL #3,GARBLED_TRANS 
02 A8 O02 As 1 17 BISW #CLIG_M_DEADNODE,2(R8) ; Mark the node as unuseable 
50 D4 1234 178 CLRL 8 : Indicate that we failed 
4— 11 ! : iF 5308 BRB 550$ : Skip the rest - node is incoherent 
48 63 €E8 123 181 BLBS tT aang ; BR if node could read extended file 
§; DD 1 3 1 $ PUSHL (R35) ; Otherwise get the error status 
1BC3'CF 1 FB 1230 21 CALLS #1,STATUS_TO_TEXT ; Convert it to something we can type 
54 1717°CF 7E 1 4g 184 MOVAQ RF_FILESPEC_BESC,R4 
124 185 $FAO_S CTRSTR = SLAVE_EXT FAIL,- ; Tell the user what happened 
1247 21 § OUTLEN = BUFFER_PTR,- 
1247 1 OUTBUF = FAO_BUF ,- 
1527 5489 et 
= 
mrs pe iy i Baa ea re 
00741132 + DD 126 136 PUSHL #UETPS$_TEXT!STSSK_ERROR 
goorSSRt or Bo Tage Side BURIAY BNtBtoe 
TREES F DD 1274 2195 PUSHL #UETPS$_TEXT!STSSK_ERROR 
1DAD* CF FB 127A 136 CALLS # /ERROR_SIGNAL 
D4 127F 19 CLRL 3; Indicate a failure 
0 11 ! 1 138 5408 BRB 550$ 3; Skip the rest for this file 
50 01 00 ' 3 301 5508 MOVL #1,R0 3; Indicate success 
04 «#1 : 2 RET ; That's it for shared access 
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1 q : 6008: : Tell all slaves to end file access 
7 ‘thi 3 1 MOVAW NODE_CHANS,R7 ; Used to loop through DECnet channels 
8 AA‘ CF — 1 f § MOVAQ NODE_NAMES,R8 ; Used to loop through node name descs 
DF" CE oF 1 MOVA ROVE ON mS6,R9 : Set up convenience register 
OAA2'CF 02 A 9 36 peas MOVCS (R9)72(R9) ,MESSAGE_BUFFER ; Set up message 
67 a 129D 201 “ TS$tw (RT) ; Have we another channel? 
1 129F 1 BNEQ 620$ ; BR if so - tell node to move on 
FN BBN aos, 8 
7E , 3 eA 14 : MOVZWL (R7)+,-(SP) ; Set up channel (and point to next)... 
bb 15a? 5516 pusHt paw png 
1922'CF 3 fe 12A9 19 CALLS #3,MASTER_WRITE : Tell node to move on after file access 
8 735 12A 18 TSTD (RB) ; Point to the next possible name desc 
eB 11 128 1 BRB 610$ ; Loop for the next node 
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TCL1GOO VAX/VMS _UETP Clu Pa 4 
Vb. cb08 SHARE_ACCESS = See If We can Share F SEP-1984 UE TREY. SRE IUEYCL 1G0.MAR: 1 a (36) 
! : 1 re -SBTTL SHARE_ACCESS = See If We can Share File Access 
108 § ; FUNCTIONAL DESCRIPTION: 
128 4; See if a slave can read a file or files that is being written by the 
} ; $3 master process. 
128 ; : IMPLICIT INPUTS: 
! : 3 ; Name of a file, by way of a message from the master process. 
128 0 ; IMPLICIT OUTPUTS: 
! : 13 NONE 
108 § : SIDE EFFECTS: 
: : : 3 File is read and deaccessed. 
1585 $835 
128 8 SHARE_ACCESS: 
ODE7"CF DE 128 9 MOVAL ACCESS_MSG,R9 ; Set up convenience registers... 
SA ODEF'CF §«=6DE.s«128 40 MOVAL CONTINOE_MSG,R10 pe 
ODFO'CF ODE ! af ¢} 108 MOVAL MOVE_ON_ASG,R11 S ane 
59 OD 12C1 2 : PUSHL R9 :; Define the type of message we expect 
16D0"CF 01 FB 12C3 44 CALL #1,SLAVE_READ ; Get the master node's message 
OAA2'CF O02 A9 69 29 128 45 CMPC (R9) ,2(R9) ,MESSAGE_BUFFER ; What does the message sa 
31 13° 12CF 4g BEQL ; BR we're to access a file 
OAA2' CF 02 AB 98 * \ 4 sth ay (R11) .2(R11) MESSAGE BUFFER. ; Are we done with this section? 
3 so 
00BB ' CF DF 12DA 49 PUSHAL NULL 3; Otherwise... 
0094 'CF DF 1 Dg 50 PUSHAL MASTER_NODE_DESC 
59 DD 12E 51 PUSHL R9 ; ...we're confused... ; 
1B47°CF O03 FB 12E4 26 CALLS #3,GARBLED_TRANS > ...and can't do anything about it 
1e9 33 we SEXIT_S CODE = #UETPS$_ABENDD!STS$K_ERROR! STSSM_INHIB_MSG 
136 55 ; $CLOSE FAB = RF_FAB 3; Blindly deaccess any possible file 
05 1 01 2$ 508 RSB 
63 a of 28 Hi 28 : MOVC3 er Parass. Gs «= ; Set up the filespec - name... 
OOF F OF pore 3A ! OA 69 LOCC #0. #NARSC RAKRSS.- ® eda 
OOFF 8F 50 a3 1 18 $¢ SUBW3 RO7#NAMSC_MAXRSS,- z «..and Length 
1717°CF 131 6 RF _FILESPEC_DESC 
1717°CF 90 131A 9 MOVB RF_FILESPEC DESC,- 3; Set the Length... 
1657'CF 131E 5 RF-FAB+FABSE_FN 3: ..-where RMS expects it 
OOFF 8F 00 00 8F 00 2c 1321 96 MOVCS #07#0,#0,#NAMSC_MAXRSS,- ; Clear out remnants... 
181E'CF 1329 226 RESULT _FILESPEC : ...0f any previous SOPEN... 
01 BA 132C o8 BICB #FABSM_PUT,- : ..-and be honest about our access 
1639°CF 132€ : RF_FAB?FAB$B_FAC 
1331 0 SOPEN FAB = RF_FAB>- ; See if we can get to the file 
1331 2271 ERR = RMS_ERROR 
1340 i BLBCW RO,408 ; Skip the rest if we get an error 
50 042° CF DE 1346 207 MOVAL  SCSNODE,RO 
51 1717°CF = E. «134 74 MOVAL RF_FILESPEC_DESC.R1 
1 ; 75 SFAO_S CTRSTR = DEBUG_SHARE_MSG,- ; If we're tracing, say... 
1 6 OUTLEN = D s Pd 
135 7 OUTBUF = DEBUG_FAO_BUF ,- 
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P1 = #N NGTH,=- 
ig a ig 
= 
083d 30 1 : BSBW GIVE_DEBUG_MSG i «e.that we've gotten to the file 
136C : SCONNEC = RF_RAB 
136C ERR = RMS-ERROR 
48 50 €9 13768 4 BLBC :; Skip the rest if we get an error 
137 5 $SGET RAB = RF_RAB,- ; Try to read the file 
137E : ERR = RMS_ERROR 
39 50 9 1380 BLBC RO, ; Skip the rest if we get an error 
5A 8F 00 8F 00 a- 5 a 8 CMPCS #0,40,#PATTERN_1,- ; Did we read the correct data? 
OCC4*CF  010D BF 139 9 #TEXTB_SIZE BUFFER 
24 13 139C 0 BEQL 5 ; BR if we did 
7E 9A 1 a 91 MOVZBL (R3),-(SP) ; Save the bad data... 
7E SA BF 9A 13A 36 NOVZBL #PATTERN 1,-(S ; .eethe good data... 
7E 00000100 8F 52 C3 13A5 209 UBL3 R2,#TEXTB SIZE,-(SP)  ; ...the offset of the bad data... 
goog ar Bo iat fans URN GlyrggggPEC ese © 1 devi. 
00748018 8F DD 1387 96 PUSHL #UETPS_DATADEVERR 3 «and the error code... 
1DAD'CF 06 FB 138D 97 CALLS #6,ERROR_SIGNAL i «e.SO we can indicate the problem... 
50 00748018 8F 00 ! cs 38 40s MOVL #UETPS_DATADEVERR,RO 3 «and warn of the error 
OAAB'CF 50 00 ! 7 + MOVL OP Bes shee AUF PERS ; Use our error code as a message 
13¢¢ b S$CLOSE FAB = RF_FAB 3 Deaccess this file 
59 oD 1308 3 PUSHL R9 ; Save the type of message... 
1769°CF O01 FB 13DB 2304 CALLS #1,SLAVE_WRITE 3; «and tell master we had problems 
FEDE 31 1363 305 oe BRW 10$ 
OAAB' CF 01 dO 13 ti MOVL a) ee sthee rr ERe ; Reply to master - MESSAGE_BUFFER... 
59 DD 136 09 PUSHL R . ; «Still has correct message type... 
1769°CF O01 FB 13EA 10 CALLS #1,SLAVE_WRITE 3 .-.to which we append success 
5A DD 13€F $1) PUSHL R ; Define the type of message we want 
16D0'CF 01 FB 13F1 \¢ CALLS #1,SLAVE acne ; Let master tell us to read next block 
OAA2'CF O02 AA ef 29 13F6 231 cmPCS = (R10) ,2(R1 ) MESSAGE_BUFFER ; What does the message say? 
1 13 are 14 BEQL ; BR if we're to continue access 
OAA2'CF 02 AB 4268) 629 «O13FF 15 CMPC3 (R11),2(R11) ,MESSAGE_BUFFER : Did master tell us to move on? 
1¢ = 3=613 1708 18 BEQL 60$ ; BR if so - clean up 
OOBB'CF OF 138 1 PUSHAL NULL 3; Otherwise... 
0094°CF DF 14 18 PUSHAL MASTER_NODE_DESC 
5A DD 141 1 PUSHL R 3; «we're confused... 
1B847°CF O03 FB 141 0 CALLS #3,GARBLED_TRANS ; «and can't do anything about it 
ey 1 608 SEXIT_S CODE = #UETPS$_ABENDD! STS$K_ERROR!STS$M_INHIB_MSG 
1424 5 $SCLOSE FAB = RF_FAB ; Get out as easily as possible 
= 12 } ¢ 70$ woes 
14 6 § SCLOSE FAB = RF_FAB,- 
14 ERR = RMS_ERROR 
143F 8 BLBCW RO,80$ ; Skip the rest if we get an error 
1645 SOPEN FAB = RF_FAB,- ; Update our knowledge of the file 
144 9 ERR = RMS_ERROR 
6F 50 E9 1454 BLBC R ; Skip the rest if we get an error 
1457 5 SCONNECT RAB = RF_RAB,- 
1457 ERR = RMS_ERROR 
5D 50 £9 1466 4 BLBC RO,80$ ; Skip the rest if we get an error 
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1469 5 $GET RAB = RF_RAB,=- ; Reread the first record 
14 3 : ERR = RMS_ERROR 
4850 €9 14 plat R ; Skip the rest if we get an error 
1478 8 GET RAB = RF_RAB,- : Try to read a second record 
1478 ERR = RMS_ERROR 
39 50 9 148A 40 BLBC Re. 8 i; Skip the rest if we get an error 
FO 8 00 8F 0 D 14 B 41 CMPCS #0,#0,#PATTERN 2,- 3; Did we read the correct data? 
OCC4'"CF 010D BF 14 4¢ #TEXTB_SIZE, BUFFER 
8 13 1499 4 BEQL 0 ; BR if we did = note that RO = 0 
7E 8 9A 1498 44 MOVZBL (R3),-(SP) 3; Save the bad data... 
7E FO 8F 9A 1496 45 NOVZBL #PATTERN 2 i seethe good data... 
7E 00000100 8F 52 C3 146A 4g SUBL R2,#TEXTB §12E,-(SP) 3 «e-the offset of the bad data... 
1717°CF DF 14AA 234 PUSHAL RF Fi SPEC_DESC ; ..ethe device’... 
QO0F 0004 gr DD 14AE 48 PUSHL #*RF 4 S$ wee 
00748018 8F DD 1484 49 PUSHL #UETPS$_DATADEVERR 3 «eeand the error code... 
1DAD'CF 06 FB 14BA 50 CALLS #6,ERROR_SIGNAL 3 «+80 we can indicate the problem... 
50 00748018 8F D0 1eee 2) 80s MOVL #UETPS_DATADEVERR,RO 3 «sand warn of the error 
50 D5 ne 2g TSTL RO ; RO = 0 if all OK, else error code 
29. «12 «+14C 54 90$ ; BR if we had a problem 
50 st Bd DE 14CA 2355 MOVAL SCSNODE ,RO 
51 1717"CF 3=DE.s«14CF 336 MOVAL RF_FILESPEC_DESC,R1 
14D4 57 $FAO_S CTRSTR = DEBUG_EXTEND_MSG,- 
1404 2358 OUTLEN = DEBUG_PTR,- 
14D4 2359 OUTBUF = DEBUG_FAO_BUF,- 
1404 360 Pi = #NODE-LENGTH,- 
14D4 2361 2 = RO,- 
14D4 $ac8 P = R1 
0689 30 14ED 236 BSBW GIVE_DEBUG_MSG ; Let debugging user know... ; 
50 01 00 1ar3 ye oes MOVL #1,R0 3 eeethat we read the extended file 
OAAA'CF 50 DO 14F 3366 MOVL RO, MESSAGE _BUFFER+- ; Use status code as our message 
14F8 2367 CONTINU GTH 
13t8 368 $CLOSE FAB =R 3; We've accessed the file 
150 369 ; ERR = RMS_ERROR ; Get here on error as well as success 
5A DD 1503 359 PUSHL R10 ; Message says we're finished with file 
1769°CF 01 FB 1505 71 CALLS #1,SLAVE_WRITE ; Return result of sharing access 
FDB4 31 150A 2372 BRw 10$ 3; Loop in case we have to do another 
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74 fs -SBTTL WIND_DOWN = Terminate Slaves and Clean Up 


i p 75 34+ 
1500 id: ; FUNCTIONAL DESCRIPTION: 
150D a Allow the slave processes to exit. Each of the slave processes will 
150D 4 : relay its copy of SYSSERROR.LOG back to us; we will copy the relevant 
150D 79 ; parts of it to our own SYSSOUTPUT. Announce the end of testing to 
: 4 ? 3 the operators’ consoles in the cluster. 
150D 5 > IMPLICIT INPUTS: 
1 4 7 3 NODE_CHAN List of channels on which we have DECnet Links 
1300 5 : IMPLICIT OUTPUTS: 
120) 5389 | see 
150D : : SIDE EFFECTS: 
1500 3 3 DECnet tasks are terminated. 
150D 0; Slave SYSSERROR files copied to our SYSS$OUTPUT. 
1200 4! ; Message to various operator consoles. 
BB in 
150D 95 WIND_DOWN: 
57 CF 3€ 150d 38 MOVAW NODE_CHANS,R7 ; Used to loop through DECnet channels 
58 AA‘CF 7E 1316 9 MOVAQ NODE _NAMES,R8 ; Used to loop through node name descs 
5A OE02°CF DE 151 98 MOVAL ERRORLOG_MSG R10 ; Set up convenience registers... 
59 CF DE 1316 399 a MOVAL ERRORLOG-ENDED_MSG,R9 =: ... 
67 BS 1521 2401 ; TSTwW (R7) ; Have we another channel? 
1 ; rh BEQLW 40$ :; BR if not - all SYSSERROR.LOGs copied 
1528 2404 SPUTMSG_S MSGVEC = BLANK_LINE_PTR ; Set off logs with a blank Line 
+ + 1 9 ret AE ae ; Set up a message... 
00748081 oF OD 133p 409 PUSHL #UETPS cOPY_LOG oh ii 
a a Tr 
154C 2410 SPUTMSG_S MSGVEC = (RO) ; .eewhich log we're copying 
OF BA 1328 213 208 POPR #*M<RO,R1,R2,R3> ; Clean MSGVEC from the stack 
oo. oP 41 ; MOVZWL (R7),=-(SP) ; Set up the channel... 
58 OD 1560 2414 PUSHL R8 3 ..ethe node name... 
5A 0D 1366 415 PUSHL R10 3 «.-and our message name 
1A3E ‘CF 93 44 156 416 CALLS #3,MASTER_ERRORLOG_READ ; Get a slave's non-success message 
A 3 1569 2417 BLBC RO, 30 ; Give up if an error 
OCC4'CF 02 a9 6 $9 1 8 418 CMPC3 (R9), (R9) ,BUFFER : Is it an ERRORLOG_ENDED message? 
3. 15 ; 419 BEQL ; BR if so - we've Finished this slave 
OCC4'CF O02 AA 6A 29 157 420 CMPC3) (R10),2(R10) ,BUFFER : Is it an ERRORLOG message? 
12 157C 2421 BNEQ $ ; BR if not - we're out of synch 
O21A 8F 00 3A 1376 4 ¢ LOCC #0,#2*TEXTB SIZE,- 3; Find the end of the message 
Occe' CF 13 4 BUFFER*ERRORLOG LENGTH 
0000021A Beac*tp C3 : : r : SUBL3 R ghee texte size.- ; Use it to compute the message length 
C 13 12 4 § BEQL ; Don't print slave's enpty message 
pce “CF §6—E «C159 4 MOVAL BUFFER+ERRORLOG_LENGTH,- ; Point past the message type... 
EcOret 159 4 3 FFER_PTR+4 3 «..S0 that the message is clear 
0E4 30 122 4 BSBW 0 ; Indent the Line(s) of the message 
159C 2430 SPUTMSG_S MSGVEC = ERRORLOG_PTR ; Copy slave SYSSERROR to our SYSSOUTPUT 


cer er ee eee CO C—O 3 crc 
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OCCO'CF OCC4°CF DE 15AD MOVAL SUtFER BUFFER PIAS ; Reset buffer pointer to buffer's start 
A? 1 308 RB $ ; Loop for the next message 
58 0D PUSHL R8 ; Set up a message... 
1 ODD PUSHL #1 nee 
007480C1 8F ODD PUSHL #UETPS GOPY_LOG_ENDED 
—E 00 OVL SP,R 
SPUTMSG_S MSGVEC = (RO) 3; «.--which log we've copied 
F OBA POPR #*M<RO,R1,R2,R3> ; Clean MSGVEC from the stack 
7 8 TSTW (R7)+ ; Point to the next possible channel 
4 TSTD (R8)+ ; Point to the next possible name desc 
FF4 31 408 BRW 10$ ; Loop for the next slave's SYSSERROR 
50 O0042°CF ODE MOVAL SCSNODE,RO 
SFAO_S CTRSTR = END_OF_TESTING,- 
OUTLEN = BUFFER-PTR,=- 
OUTBUF = FAO_BUF,=- 
Pi = #NODE_LENGTH,- 
Ps = RO,- 
P = #0 
SBRKTHRUW_S - ; Warn other nodes by a console message 
BUFFER _PTR,=- 


MSGBUF 
EF #ss SYRCH_EFN,- 


#BRKSC_DEVICE,- 
#BRKSM~ CLUSTER, - 
#BRKTHRU_TIMOUT,- 
QUAD_ STATUS 


10 = QU 
QUAD_STATUS ,50$ ; BR if there was any error in sending 
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OA OO2C'CF E9 BLBC v 
OO30'CF Al ADDW3 QUAD_STATUS+4,- ; Did all nodes see the warning? 
51 0032'CF QUAD_STATUS+6,R1 
4C 13 50s BEQL 60$ ; Skip the message if so 
7E  OQO2C'CF 3¢ MOVZWL QUAD_STATUS,-(SP) ; Get the text... 
1BC3'CF 01 FB CALLS #1,STATUS TO_TEXT ; ..-associated with any error 
51 OO30'CF  3C MOVZWL QUAD_STATOS+4,R1 
52 0032'CF 3¢ MOVZWL QUAD STATUS+6,R2 
$FAO_S CTRSTR = BRKTHRU_ERRORS,- ; Form a message 
OUTLEN = BUFFER e” 
OUTBUF = FAO_BUF,- 
1 = R1,- 
P2 = R2 
OEDE'CF OF PUSHAL STATUS_PTR 
OD PUSHL #1 
00741132 8F DD PUSHL #UETP$_TEXT!STSSK_ERROR 
bce "CF OF PUSHAL BUFFER PTR 
4 1 8F OD PUSHL #*XF0001 
0741132 8F ODD PUSHL #UETPS_TEXT!STSSK_ERROR 
1DAD* CF 6 FB CALLS #6,ERROR_SIGNAL 
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wr 
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1 484 ; 
1 485 ; Massage a record from the slave's SYSSERROR file so that it is uniformly 
16 4 $ ; indented from the left margin, even if the record contains embedded carriage 
12 : 3; returns, Line feeds and tabs. 
16 4 § 100$: 
51 CCO'CF 0 1 490 MOVL BUFFER_PTR+4,R1 ; R1 and RO are a string desc... 
50 ‘aa C 16 491 MOVZWL BUFFER PTR,RO 3 «for the remainder of the record 
E 0 60 168A 138 MOVW RO,-(SP) ; Counts chars as indentation is done 
1€ «11 16 p 493 oes BRB 136s ; BR inside loop - indent string's start 
61 50 90 3A 185 495 LOCC "ne RO,(R1) ; Is there a <RET> in rest of string? 
131 496 BEQL 1406 ; Exit loop if not - no more indent 
50 D7 169 49 DECL RO ; Found one. LOCC has us pointing at it 
51 D6 1697 $28 INCL R1 ; Point past the <RET> 
61 OA 91 1699 249 CMPB #10,(R1) ; Is there a <LINEFEED>? 
04 fF 169C 2500 BNEQ 1208 : BR if we need not skip <LINEFEED> 
50 OD 1975 501 DECL RO 3; Must pass over <LF>... 
51 06 194 286 1208 INCL R1 3 «Since they're new Line to printers 
61 O09 91 18A3 504 CMPB #9,(R1) ; Is there a tab at start of Line? 
06 i 16A 505 BNEQ 136$ ; BR if not - we can start indenting 
50 07 16A7 2506 DECL RO ; Must pass over the tab 
51 D6 16A9 a4 INCL Ri ; More of pessing over the tab 
F5 11 16AB 2508 BRB 120$ ; Inner loop to find multiple tabs 
16AD 2509 130$: 
50 D5 16AD 2510 TSTL RO ; If we're at the end of the string... 
19 13 I6AF 2511 BEQL 140$ 3 «+-We Can exit the outer loop 
93 1681 218 PUSHR #*M<RO,R1> ; Save desc to rest of string 
04 A1 61 50 28 1683 251 MOVCS RO, (RIS, INDENT(R1) ;_Indent the rest of the strin 
04 BE 04 0 00 8F 6 eC 1688 514 MOVC #0,#0,#°A/ / ,MINDENT,@4 (SP) 
0 BA 16CO 2515 POPR #°ncr6,R1> 3; Restore desc to rest of tring 
51 04 CO 1ob¢ 21$ ADDL #INDENT,R1 ; Point beyond the spaces lust nserted 
6—E 04 Ad 16C 51 ADDW # INDENT, (SP) ; Count total Length incl. indentation 
cS” so + 3 218 1408 0$ ; Loop to see if we need indent again 
OCBC'CF 8E 4 16CA 259 MOVW (SP)+,BUFFER_PTR ; Set new record size 
0S 16CF 521 RSB ; Return with finished record 


; Fill indented spaces with blanks 
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160 3 - -SBTTL Read and Write DECnet 
16D g 3; FUNCTIONAL DESCRIPTION: 
16D § g A set of common routines to read from and write to DECnet. They handle 
190 ; master and slave reading and writing as well as minimal error checking. 
190 5 3; CALLING SEQUENCE: 
16D 9 3 CALLS #35,MASTER_access 
16D 531 ; -or- 
16D 5 § 3 CALLS #1,SLAVE_access 
3 and access is either or 
190 5 Z d i ither READ WRITE 
18 2 5 ; INPUT PARAMETERS: 
16D 5 § 3 4(AP) address of MESSAGE_NAMES message (count word followed by text) 
16D oat (AP) address of node name (master routines only) 
198 2 3 3 12(AP) DECnet channel (master routines only) 
1908 540 ; IMPLICIT INPUTS: 
16D 541 ; NODE_CHANS has the DECnet channel (slave routines only) 
1908 236 3 MESSAGE_BUFFER has the message to write (write routines only) 
16D 544 ; OUTPUT PARAMETERS: 
198 $02 3 NONE 
1908 243 3 IMPLICIT OUTPUTS: 
16D 548 ; QUAD_STATUS receives the status of the operation 
1903 549 ; MESSAGE _BUFFER receives the message (slave read routine only) 
198 329 3 BUFFER receives the message (master read routine only) 
1600 226 ; COMPLETION CODES: 
198 227 3 1/0 status block status from $Q10 
16D 555 ; SIDE EFFECTS: 
16D 228 : DECnet read or written 
16D 557 ; Node no longer accessible (master routines only) 
16D0 228 ; Error message if there were problems 
1908 559 ; Slave process may also exit if problems 
16D 560 ; 
1h gee) 
16D 288 SLAVE_READ: 
0004 190 208 -WORD “M<R2> 
16D 268 SSETIMR_S DAYTIM = SLAVE_QIO_DELTA,- ; Prevent hangs waiting for DECnet 
16D 6 ASTADR = TIME_OUT,= 
16D 208 REQIDT = AP 
16E 28 $Q10W_S EFN = #SS_SYNCH_EFN,- ; Get the master node's message 
16E : 0 CHAN = NODE_CHANS,- 
165 2571 FUNC = #I0$~READVBLK,- 
16E i I0SB = QUA TUS, 
16€ 7 P1 = MESSAGE BUFFER,- 
\9f 74 P2 = #TEXTB_SIZE 
170A 75 SCANTIM_S REQIDT = AP ; We returned from the DECnet Q10 
1D OO2C°CF E8 1715 6 BLBS QUAD_STATUS,10$ ; BR if message received correctly 
‘CF ODF I71A 7 PUSHAL NUL ; Otherwise,... 
094°CF OF Hat; 4 PUSHAL MASTER_NODE_DESC 
04 AC OD 172 7 PUSHL 04(AP) 
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17 4 3+ 
se ; One of the DECnet read/write routines. 
SLAVE WRITE: 
f «WORD “M<R2> 
7 SSETIMR_S DAYTIN = SLAVE ei0 =PELTA, - ; Prevent hangs waiting for DECnet 
7 & ASTADR = TIME_OuT 
7 5 REQIDT = AP 
If : $ $Q10W_S EFN = #SS ars sEmN.= ; Answer the master node's message 
7 CHAN = WODE_ CHA 
443 8 FUNC = #10 “YAITE Vou. 
77E 10SB = QUAD STATUS 
77E 061" P} = MESSAGE BUFFER, - 
44) 1 P2 = #TEXTB_SIZE 
7A 1 SCANTIM_S REQIDT = AP ; We returned from the DECnet Q10 
7A 1 BLBS QUAD_STATUS,10$ ; BR if message was sent correctly 
78 1 PUSHAL NULL : Otherwise... 
78 1 PUSHAL nae ge NODE _DESC 
1 PUSHL O04(A 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee 
PAAEAAAAPS AAAAAAAAAAAAAAAAA AOA AAOO AIIM 


: 
788 - 
rae 7 CALLS #3, URITE FAILED 
AS 18 108 SEXIT_S CObE = POETPS -ABENDD ! STS$K_ERROR! STSS$M_INHIB_MSG 
OO 0 , MOVL 04 (AP) ,RO ; Point to the message 
704 1 MOVZWL (RO),R4 ; Get the message length 
707 § MOVAL  2(ROS,RO ; Point to the message text 
208 MOVAL ASTER _NODE_DESC,R 
7E 4 $FAO_S CTRSTR'= DEBUG “vAlte _MSG,- ; Form debugging message 
43 5 OUTLEN = DEBUG_ 
7E 8 OUTBUF = DEBUG_ FAO “BUF, - 
7E0 P1 = R1,- 
FEO 3699 i 
7F9 0 BSBW GIVE _DEB UG_MSG ; Let a debugging vs user see it 
4a } poyeut. QUAD" STAT ATUS. RO ; Return $010 resul 
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1 3+ 
1 é ; One of the DECnet read/write routines. We have special onditions 
1 § $ here: we are in our exit handler with sreten sory ce Failure mode 
1 3 and ned turned off ane we are reading the very file we we would 
1 3 ordinarily be wr fing f we encounter an error. We must therefore 
! ? 3 make some assumptions and process errors locally. 
1 41 SLAVE_EXIT_WRITE: 
007C ! ? -WORD “M<R2,R3,R4,R5,R6> 
1804 44 $Q10_S EFN = #SS_SYNCH_EFN,= ; Copy a Line of our error log file 
1804 96 CHAN = NODE CHANS o« 
1804 rk FUNC = #10$_WRITEVBLK,- 
1804 264 I0SB = QUAD STATUS,- 
1804 648 Pi = MESSAGE BUFFER,- 
1804 264 P2 = #2*TEXTB_SIZE 
1829 2650 SSCHDWK_S DAYTIM = FIVE_SECONDS ; Allow a nominal time for the $Q10 
185A 2651 SHIBER_ ; Assume it will complete when we awaken 
002C "CF 83 1841 $36 TSTW QUAD_STATUS ; Did it complete though? 
0S 12 1845 265 BNEQ ; BR if it did 
Oo2c'cF 01 B80 ' rt O28 108 MOVW #1 ,QUAD_STATUS ; Fool us into success - we can't wait 
18e¢ 636 "  BLBSW = QUAD_STATUS,20$ ; BR if $Q10 worked 
7E 002C "CF 3C 61854 65 MOVZWL QUAD _STATUS,=-(SP) ; Otherwise... 
1BC3'CF 0 FB 1859 o28 ALLS #1 STATUS_TO_TEXT S$ «ecQO@t Wes 
54 O4A 0 185 65 MOVL 04 (AP) ,.R4 3 «.-for an error message.. 
53 . <a és 660 MOVZWL (R4),RS 3 «e-Just as though... 
54 02 DE 186 661 MOVAL 2(R4),R4 3 «e-we'd called... 
2 0094'CF 43 ! 69 O06 ever MASTER NODE_DESC,R5 3; ...our regular error routines... 
1 $ $i SFAO_S CTRSTR = WRITE.MSG,- : :.. 
1873 2665 OUTLEN = BUFFER _PTR,- 
1873 266 OUTBUF = FAO_BUF,- 
187 66 Pi = R3,- 
1873 See i baee 
187 $90 P4 = RO 
56 SE 00 1 a 671 SP,R6 : (This will clean up stack) 
saad +4 ! at or¢ Ae ry BIATUS PTR 5 wou 
00761132 8F DD 1897 ere HL #UETPS_TEXT!STSSK_ERROR 
OOOF 6 f Sf 4 3 ooe PUSH . ext 601 
aah FY 4) ! 4 er? +t tas BYE IES LEX !STSSK ERROR 
‘CF OD 1881 re PUSHL ERROR™ COUNT 
iS Bb THe SEER FURR pena ges 
$094 § ‘ +4 ! t 6 § atiey AVG, TPS ERBOXPROC ! STSSK_ERROR 
55 —€ oO 1 £3 é 4 MOVL SP,R5 
18CA 5 SPUTMSG_S MSGVEC = (R5) 3 «..but use no AST and don't log it! 
5E 56 00 ! 43 é § 208 MOVL R6,SP ; Clean up the stack 
50 O4A 0 18D : "— MOVL = O4 CAP) ,RO : Point to the message 
51 6 . e) 6 MOV2WL (RO) ,RI ; Get the message length 
50 02 A0 DE 18E 690 MOVAL 2(ROS,RO ; Point to the message text 


Sena. F 
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52 O094'CF ODE MOVAL master. NOD Ue Re 
SFAO_S CTRSTR™= DEBU WAI E_MSG,~ ; Form debugging message 
i OUTLEN = DEBUG_P 
1 TBUF = DEBUG. FAO “BUF, - 
: : P2 = ROSA 
= e* 
1 05 i P 2 9 
11 0026°CF O00 €1 1 9 BBC #CLIG_V_DEBUG, FLAGS ,30$ ; Skip message if not debugging 
HE $9 oo. SPUTMSG_S nSGveC = DEBUG_QI1O_MSG_PTR ; Print but don't Log message! 
VZWL QUAD_ ’ ; Return result 
50 002C'CF C 1916 7 ° MOVZ QUAD_STATUS,RO R $Q10 l 
4 1921 2702 RET 
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1 704 ;+ 
i 5 3 One of the DECnet read/write routines. 
1 ° MASTER_WRITE: 
0000 13 fs 8 «WORD “M<> 
1924 2710 SSETIMR_S DAYTIM = QIO_DELTA,- ; Prevent hangs waiting for DECnet 
1924 2711 ASTADR = TIME_OUT,= 
1924 ar REQIDT = AP 
1937 271 $Q10W_S EFN 2 #35 SYNCH_EFN,= 
1937 2714 CHAN = 12(AP),= 
19 , 715 FUNC = #10$_WRITEVBLK,- 
19 us I0SB = QUAD_STATUS,- 
1937 271 Pi = MESSAGE _BUFFER,- 
1937 ay | P2 = #TEXTB_SIZE 
1958 271 SCANTIM_S REQIDT = AP ; We returned from the DECnet Q10 
17 OO2ZC'CF E8 1966 2720 BLBS QUAD_STATUS,10$ ; BR if message sent correctly 
O999'CF DF 1968 2721 PUSHAL EXCLODE_MSG ; Complain if it was not 
08 AC OD P28 7 § PUSHL 8( AP) 
04 as DD 19 g 7 PUSHL 4 (AP) 
1838" 0 FB 197 724 CALLS #3,WRITE_FAILED 
50 08 AC DO 197A 2725 MOVL  OBC(AP),R 
02 02 A 1985 4 § 108 BISW2 #CLIG_M_DEADNODE,2(RO) ; We're done with this node 
50 04 AC 0 138 728 OVL 04 (AP) ,RO ; Point to the message 
1 60 C 1986 2729 MOVZWL (RO) ,R4 ; Get the message length 
50° 02 AO DE 1989 2730 MOVAL 2(ROS,RO : Point to the message text 
198D 2731 $FAO_S CTRSTR = DEBUG_WRITE_MSG,- ; Form debug message 
198D 27 § OUTLEN = DEBUG_PTR,- 
198D 27 OUTBUF = DEBUG_FAO_BUF ,- 
198D 2734 P1 = R1,- 
198D 2735 2 Re ~ 
198D 27 6 p = OB(AP) 
OFF 30 19A7 27 Bu GIVE_DEBUG_MSG ; Let a debugging user see it 
50 002C'CF 3 i 4 3 ta QUAD" STATUS ,RO ; Return $Q10 result 


K 11 
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1 iS : 
ie He 3 One of the DECnet read/write routines. 
1980 3744 MASTER_READ: 
0000 138 ot? «WORD “M<> 
198 509 SSETIMR_S DAYTIM = QIO DELTA,- ; Prevent hangs waiting for DECnet 
198 pee ASTADR = TIME_OUT,=- 
198 74 REQIDT = AP 
19¢ 750 $Q10W_S EFN = #58 SYNCH_EFN,- ; See if other node acknowledges us 
19¢ 751 CHAN = 12(AP 
19¢ 7 ; FUNC = #10$ <BEARYgLES- 
19¢ 7 10SsB = QUAD. ie 
19¢ 754 P1 = BUFF 
19C 755 P2 = WTEXTS. SIZE 
19E9 27 § SCANTIM_S REQIDT = AP ; We returned from the DECnet Q10 
17 OO2C'CF EB 19F4 27 BL QUAD_STATUS,10$ ; BR if message received correctly 
O999°CF DF 19F9 £38 PUSHAL EXCLODE_MSG ; Complain if it was not 
Oc AE DD AOS 3480 PUSHL OeCAP) 
ware tO IE Sr EEE taggau 
02 a0 O02 A 116 768 108 BISw2 relic. M_DEADNODE,2(RO) ; We're done with this node 
50 04 AC 0 1A1 765 MOVL Pasar? RO ; Point to the message 
1. 60 C 1A14 276 MOVZWL (RO) RI ; Get the message length 
50 02 A0 DE 1A17 276 MOVAL 2(ROS,RO ; Point to the message text 
1A1B 276 $FAO_S etasth = DEBUG_READ_MSG.- ; Form debug message 
1A1B 6 OUTLEN = DEBUG_PTR 
1A1B 2770 OUTBUF = DEBUG. FAO “BUF, - 
NB 37H ues Be 
= = 
1ais 597 § = O8(AP) 
0171 0 1433 774 BSBW GIVE _DEBUG_MSG ; Let Sobyag ing ware see it 
50 002C'CF zt 1A38 Ae wovzuL QUAD-STATUS RO ; Return $Q10 result 
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1A3E ah 3+ 
1A : 44 3 One of the DECnet read/write routines. 
1A3E 2781 MASTER_ERRORLOG_READ: 
0000 1A? f § «WORD “*M<> 
1A4 784 SSETIMR_S DAYTIM = QIO_DELTA,- ; Prevent hangs waiting for DECnet 
1A40 2785 “ ASTADR = (tie . . 
1A4 7 $ REQIDT = AP 
1A5 7 $Q10W_S EFN = #58 SYNCH_EFN,= ; See if other node acknowledges us 
1A5 7 8 CHAN = 12(AP),= 
VAd3 8f FUNC = #I0$_READVBLK,- 
1A 790 IO0SB = QUAD _STATUS,- 
1A5 791 P1 = BurreR ” 
1A5 196 P2 = #2*eTEXTB_SIZE 
1A77 279 SCANTIM_S REQIDT = AP ; We returned from the DECnet Q10 
OF OO2C'CF €E8 Ags 794 BLBS QUAD_STATUS,10$ ; BR if message received correctly 
O9CD'CF DF 1A 795 PUSHAL PLEASE CHECK ASG ; Complain if it was not 
08 AC OD 1A8B 279 PUSHL O8(AP) 
04 A DD JAG 79 PUSHL 04(AP) 
1B29°CF 0 FB 1A9 798 CALLS #3,READ_FAILED 
1A96 2799 10$ 
50 04 AC 0 1A96 2800 OVL 04 (AP) ,RO ; Point to the message 
. ©€ C 1A9A 2801 MOVZWL (RO) ,R4 ; Get the message Length 
50 02 A0 DE 1A9D B0¢ MOVAL 2(ROS,RO ; Point to the message text 
1AA1 280 $FAO_S CTRSTR = DEBUG_READ_MSG,- ; Form debugging message 
1AA1 2804 OUTLEN = DEBUG_PTR,=- 
1AA1 805 OU = DEBUG_FAO_BUF ,- 
1AA1 2806 = R1,- 
1AA1 2807 P 4 Be - 
1AA1 2808 p = O8(AP) 
O0OEB 30 1ABB 2809 BSBW GIVE _DEBUG_MSG ; Let debugging user see it 
50 O02c'CF 3¢ Wa 810 MOVZWL QUAD-STATUS,RO ; Return $QI0 result 
04 1AC 811 RET 
1AC4 a6 
1AC4 281 
1AC4 2814 1008: ; Catch DECnet timeouts 
0000 jac? 3618 «WORD “M<> 
5C 04 AC D0 1AC6 B19 MOVL 04 (AP) ,AP ; Get AP from DECnet read routine 
50 OC AC 3C 1ACA 2818 MOVZWL 12(AP),RO ; Get the DECnet channel... 
1ACE 2819 SCANCEL_S CHAN = RO 3; ..-because we can't wait forever 
04 1AD8 2820 RET 
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-SBTTL Timer Expiration Routine 
FUNCTIONAL. DESCRIPTION: 


$ routine will be called only if the timer goes off which was set to 
prevent program hangs while waiting for the completion of a DECnet $Q10. 


CALLING sFauen E: 
Called via AST at SSETIMR expiration. 


INPUT PARAMETERS: 
04 (AP) Contents of AP when the $Q10 was issued. See ‘Read and Write 
DECnet’’ routines. 


tate INPUTS: 
ODE_CHANS has the DECnet channel (slave routines only) 
eaaien we will use the AP from the DECnet reed/urite. routines, we 
will have the DECnet channel for the master routines as 12(AP). 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Message sexing that the $Q10 was gencet yee: 
QUAD_STATUS gets SSS$_CANCEL or SS$_ABORT 


TIME_OUT: 


WORD “M<R2> 


MOVL 04 (AP 
MOVZWL NODE 


ee Get AP from DECnet readiye ste routine 
MOVAL RASTER HNODES ROESC. R2 
CMPL 


Get DECnet channel assumi ~ Es a slave 
Get node name assuming a slav 


1,00(AP) ; But was it? flaves have only 1 arg 

BEQL 408 ; BR if so - we're s up 
MOVZWL Ag rab} Rg ; it was master - get OE net channel... 
MOVL O8(AP) ,R2 3 «.-and node name 
SCANCEL_S CHAN = RO ; We can't wait forever for DECnet 
SFAO_S “CTRSTR = CANCEL_MSG,- ; Let the user know what happened 

OUTLEN = BUFFER _PTR,- 

OUTBUF = FAO_BUF,- 

PI = R2 
SPUTMSG_S MSGVEC = CANCEL_MSG_PTR,- 
ot ACTRTN = SE_COPY 
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16-SEP-1984 00:19:09 
SEp=1986 10:00:47 
. -SBTTL Form DECnet Error Messages 
FUNCTIONAL DESCRIPTION: 
A set of common routines to format and issue typical error messages 
from reading or writing to DECnet. 


CALLING SEQUENCE: 
CALLS #5,READ_FAILED or WRITE_FAILED or GARBLED_TRANS 


INPUT PARAMETERS: 
12(AP) address of .ASCID giving consequence of error 
8 (AP) address of .ASCID node name from which error occurred 
4(AP) MESSAGE_NAMES message name (count word followed by text) 
IMPLICIT INPUTS: 
QUAD_STATUS has failure code if this was called after a $Q10 


OUTPUT PARAMETERS: 
NONE 
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IMPLICIT OUTPUTS: 
NONE 


; COMPLETION CODES: 
NO 


NE (RO is garbage) 


SIDE EFFECTS: 
Error message simi ied, 
STATUS_PTR, STATUS_BUFFER, BUFFER_PTR, BUFFER written over. 


READ_FAILED: 
-WOR 


ORD “M<R2,R3,R4,R5> 
MOVAQ READ_MSG,R5 ; Get the address of the message 
COMMON_MSG ; Join common code 
CALLS #6, ERROR_SIGNAL : Signal the error 


WRITE_FAILED: 
.WORD 
MOVAQ 
CALLS 
RET 


GARBLED_TRANS : 
. WORD 


“M<R2,R3,R4,R5> 
WRITE MSG,R5 


COMMON _MS 
#6, ERROR_SIGNAL 


“M<R2,R3,R4,R5> 
GARBLE _MSG.R5 


COMMON é 
#3, ERROR_SIGNAL 
#i2,sP 


Get the address of the message 
Join common code 
Signal the error 


Get the address of the message 
Join common code 

Signal the error 

Get rid of extra COMMON_MSG args 


ViucbOG lore bint Ste lect Test er Seen TSBs idose? FORTHE Y. eae sey er robo.mars1 P29 (29, 


931 COMMON_MSG: 
POPR 


1859 
04 A 182? 9 § 3 Get return PC 
002C'CF C 18 9 MOVZWL iv 3 aus (SP) ; Set up $aI10 a if msg needs it 
Tacs CF 1 fe 1B6 934 CALLS grat we T6_ TEXT ; Get t toe text for tha Stptus 
4 04 AC 189 935 OVL 3 Point to MESSAGE_NAMES Len 
53 4 : 1B69 29 § MOVZWL te ; Get the length o messege. 
54 02 Ad c 189 9 MOVAL Chad i, ; Point to the text naming thee messoge 
1B 938 $FAO_S CTRSTR = (RS),- ; Form the message text 
1870 2939 OUTLEN = BUFFER_PTR,- 
1B7 940 OUTBUF = FAO_BUF,- 
1B7 941 P1 = R3,- 
187 oe8 P = R4,- 
1870 294 P3 = OB(AP) ,- 
1B7 944 = 12(AP) 
OEDE'CF DF 1B8B 2945 PUSHAL STATUS. PTR ; Set up SIGNAL info for $Q10 status 
4 DD 1B8F 308 PUSHL 
00741132 8F DD 1891 94 PUSHL fuETPS ober TSTERR Fann 
OCBC'CF ODF 1897 2948 PUSHAL BUFFER-PTR ; Set up rest of SIGNAL info 
poor ore) 8F DD 1B9B 2949 PUSHL #* 1 
00741132 8F DD 1BAl 2950 PUSHL #UETPS_TEXT!STSSK_ERROR 
62 17 1BA7 2951 JMP (R2) 3; Subroutine return 
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Tracing Messages Rout =SEP-19 
1BA9 2953 -SBTTL Tracing Messages Routine 


10$: ne 
RSB 


1BA 954 ;+4 
1BA $38 ; FUNCTIONAL DESCRIPTION: 
1842 328 : Outputs a trace message for debugging purposes, if appropriate. 
1BA9 $85 ; IMPLICIT INPUTS: 
1BA9 2959 ; DEBUG_PTR is a descriptor for the message. 
1842 309 5 FLAGS has a switch to indicate debugging mode 
1BA9 308 3 IMPLICIT OUTPUTS: 
184) Ber 3 NONE 
1BA 368 3; SIDE EFFECTS: 
1BA9 ae8 ; Message to SYSSOUTPUT/SYSSERROR if we are in debugging mode 
1BA9 2967 ; Message copied to slave's SYSSERROR.LOG, if appropriate 
1BA9 2968 ; 
1BA9 5970 
1BA9 2971 GIVE_DEBUG_MSG: 
13 0024°CF 00 £1 1BA9 4) #CLIG_V_DEBUG,FLAGS,10$ ; Skip message if not tracing 
1BAF 297 SPUTMSG_S MSGUET = DEBUG Q10_MSG_PTR,- 
1 974 ACTRIN = SE_COPY 
1 975 
1 976 
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t Text Associated wit 6=-SEP- UETPSY.SRCJUETCLIG 

: -SBTTL STATUS_TO_TEXT = Get Text Associated with a Status Value 

FUNCTIONAL DESCRIPTION: 
To enable aery yeahs error messages, we'd Like to print out the 
message associated with failures as well as the messages we provide 
ourself. Some of the messages have $FAO arguments, the values 
for which are lost. Provide phe fac-s-abbrev,text for each message, 
but with the SFAO directives intact. 

CALLING SEQUENCE: 
PUSHL status 
CALLS #1,STATUS_TO_TEXT 


INPUT PARAMETERS: 
O4(AP) VMS status (message number and severity) 


IMPLICIT INPUTS: 
STATUS_STRING has an introductory message 


OUTPUT PARAMETERS: 
NONE 
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IMPLICIT OUTPUTS: 
STATUS_PTR has a descriptor for our message in STATUS_BUFFER 


COMPLETION CODES: 
Status from SGETMSG 


SIDE EFFECTS: 
NONE 


Be Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Be Se Se Se Ge Se Se Se Se Se Se Se Se Se Sees 
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STATUS_TO_TEXT: 
OOF C .QORD 


OEDE'CF 010D 8F 3C¢ 


“M<R2,R3,R4,R5,R6,R7> |; Entry mask 


MOVZWL #TEXTB_SIZE,STATUS_PTR ; Set the size of our return buffer 
SGETMSG_S MSGIB = O4(AP),- ; Get the message 

MSGLEN = STATUS_PTR,- 
BUFADR = STATUS"PTR 


ce ee ce a ee ee ce ee ee ee a ce ce ce a a ce ee ee ce ee ce ce ce ee ce ce ee ce ee ee ee ee a ed ee ee ed ee eed ee ee 
cro 
ov 
Pee 


role letmiotel eee de dedesdedesdesdesdesdecdesdesDesTesTestesTestesDecDes[eslostostecleslecleslecleclocleslecleclecleclesleslesleslecles]ss] 
AA QOD FFA HAAHWAMMMMAIAAOOOAIOOADAAAAAAAAAOHAOAAOOHOHOAAAOAOOOOOMOO 
OOOO COCOOCOOCOCCOCOCOCOCOCOOCOOSOOOOOOOCOOCOOOONUOOWNO 


CBRPPNNINNINININD 4 2 2 2 OF OOOOOSOCO 
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01 g8 PUSHR #*M<RO ; Save this as final status 
56 0158°CF C MOVZWL STATUS_STRING,R6 ; Get the length of our intro text 
57 QEEG" Ee D MOVA SI ATYS BUFFER.R? ; Point to just beyene where... 
5 56 6C ADDL R4A,R 3 «e.the intro would end in our buffer 
EDE'CF 2 MOoVC 2 |ATUS_PTR,=- ; Shift the pessage... 
67 an ca Stal S"BUF FER, (R7) : .eeby the Length of the intro... 
0160'CF 6 8 MOVC3 R6,STATUS_STRING+8,- 3 «+.SO we may surround message... 
EE6'CE STATUS_BUFFER 
22 90 MOVB “Al"'/, (R7)+ 3 ...with our intro 
6 Geo"y’ D MOVA STATYS BUFFER,R6 ; Get the length... 
OEDE'CF 6 ¢ SUBL3 R6,R7,STATUS_PTR : ...0f the entire mess 
01 0 #mcRO> : Restore $GETMSG status 
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\¢) § : -SBTTL System Service Exception Handler 
1¢1 4: FUNCTIONAL DESCRIPTION: 
1C1 > his routine is executed if a software or hardware exception occurs or 
+2 § 5 if a LIBSSIGNAL system service is used to output a message. 
1C1 8 : CALLING SEQUENCE: 
+3} ip 3 Entered via an exception from the system 
1€1 41 : INPUT PARAMETERS: 
\ei 4g 3 ; Signal and mechanism arrays from an exception vector 
11 bcz IMPLICIT INPUTS: 
1643 Be? 3 ERROR_COUNT has the previous cumulative error count 
11 23 : OUTPUT PARAMETERS: 
1643 $8 3 NONE 
1€15 3050 : IMPLICIT OUTPUTS: 
1e13 B2 3 EXIT_STATUS contains error code if we exit 
1€15 $38 : COMPLETION CODES: 
1015 3054 ; SS$_NORMAL if it's a UETP condition or RMS error. 
3 bee 3 Error status from exception, otherwise. 
1015 3057 : SIDE EFFECTS: 
1€15 Bae : STATUS_PTR, STATUS within get used. 
1€15 3059 ; May branch to ERROR_EXIT 
1015 3060 ; May print a message. 
IE B88 
1015 We SSERROR: 
OFFC 3 bee ~ WORD “M<R2,R3,R4,R5,R6,R7,RB,RI,R1IO,RII> ; Entry mask 
1C17 806 SSETAST_S ENBFLG = #0 ; Disable AST delivery 
01 DD %1€20 306 PUSH # ; Assume ASTs were enabled 
eS UCU 8 CMPL S“#SS$_WASSET,RO 3 Were ASTs enabled? 
7) te 6 BEQL 10$ 3; BR if sty were ; 
6E D4 i¢ , Boy 108 CLRL (SP) ; Set ASTs to remain disabled 
1€29 te "« $SETSFM_S ENBFLG = #0 ; Disable SS failure mode 
01 oD 1C32 7 PUS ; Assume SS failure mode was enabled 
50 00° Di 1€34 74 CMPL 5, 0858 _MASSET RO ; Was SS failure mode enabled? 
02 13 1C€37 75 BEQL 0$ 3 6 it was 
6—E D4 1 9 6 208 CLRL (SP) ; Set SS failure mode to remain off 
56 ie AC 4 1¢38 8 : MOVL CHFSL_SIGARGLST(AP),R6 ; Get the Signal , ore pointer. 
59 04 A6 7D IC3F 307 ova CHFSL SIG_NAME(R6),R9  : Get NAME in R10 
10 ED 1083 0 CMPZV) s- #STS$V_FAT_NO.- : Is this , RS. from LIBSSIGNAL? 
00000074 8F 95 if6e ; 4 Sa TeRCPMeiiry 
8 12 1C€4C : EQ ; § ; BR if this is not a UETP exception 
66 0 C2 coe 4 SUBL2 , CHFSL -516 ARGS (R6) ; Drop the PC and PSL 
1C 5 SPUTRSG. H MSGVEC™= ; Print the message 
1€51 § CHF SL “$16 ~ARGS (RG). - 
1€51 ACTRIN = SE-COPY 
ye) ae te 8 BRB 40$ 3; Restore ASTs and SS fail mode 
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System Service Except andler UETPSY SUET CLIGOO.MAR;1 (40) 
: 1064 3 30$: 
59 00000000 ef } I 4 cmp g5$8_SSFAIL, RY ; RMS feltyres are SysSvc failures 
§ 1 C BNEQ 5 ; BR if can't be an RMS failure 
se ED it 4 CMPZV geresy_t A FAC 6: 3; Is it an RMS failure? 
01 SA 1¢ 94 Ry aRASS. Factuiry 
SA F0000000 BF cA IRR 8098 Sift 2 @°xF0000000,R Seis searel otha 3 od 
a 3; Strip contro s from status 
88 A6 1 $3 10/8 $ MATCHC pe L sig. RARG1 (RO), -; Is it an RMS failure for aiehe ss 7 
OD9E ' CF iC 38 wo RAS” | TABLE 3 «no AST can be delivered? 
1A 13 if ! 9 108 BEQL 508 ; BR if so = must give error here 
01 BA iC 1 #*M<RO> ; Restore SS failure mode... 
1¢8 1 : SSE TSFM _S_ENBFLG = RO re 1 
01 BA iC 9 104 POPR “#*M<RO> ; Restore AST enable... 
1¢92 3105 SSETAST _S_ENBFLG = RO ; veT 
50 00° oO 1C9B 31 § “$*#SS$_NORMAL ,RO : Supply a standard status for exit VET 
04 ICE 108 - ; Resume processing (or goto RMS_ERROR) eh 
0028'CF 59 00 1CoF 199 novi R9-EXIT_STATUS : Save the status , ad both rH 
3 Assume for now it's not ailure 
0028'CF O0000000'8F D1 1CA6 3111 CMPL #338 _SSFAIL EXIT STATUS ; But is it a System Service failure? UET 
1¢ «#12 = «1CAF Wg BNEQ ; BR if not = no special case message UET 
SA DD 1CB1 311 PUSHL R10 3; Get the text UET 
FFOB CF 01 FB 1683 114 CALLS #1 STATUS TO_TEXT > ...associated with this specific error UID 
EDE'CF DF 1¢BB 3115 PUSHAL STATUS_PTR ; Build up a message describing... UID 
01 DD ICBC 3116 PUSHL #1 : age the System Service failed UID 
9 EF 1CB 117 EXTZV $31S$V_ SEVERITY. - ; Give the message... UID 
7E SA 1CC 118 #STS$S-SEVERITY,R10,-(SP) : +o the correct severity code,... UID 
6E 00741130 8F ce 1¢C 11 BISL2 ° ETPS “TEXT, (SPS eeefacility and id UID 
58 3)6C« +5 : y 608 MOVL RB ~ ; bount the number of args we pushed ute 
57 96 4 cS 1CCD 1 § MULL #4, CHFSL_SIG_ARGS(R6),R7 ; Get arglist length in bytes UID 
E 7 gs 1¢D1 «(31 SUBL ; Save the current signal array... UID 
6E€ 04 A6 7 1CD4 124 MOVC R7. CHFSL_SIG_NAME(R6),(SP) ; ...0n the stack UID 
7E 66 4 ¢ 1cD9 =3125 ADDL RB. CHFSL n° ARGS(R6),-(SP) ; Push the current arg count UID 
012 1 1CDD 3126 BRW ERROR_ UID 
UID 
UID 
UID 
UID 
UID 
UID 
UID 
Ul 
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-SBTTL Action Routine for Slave's SYSSERROR.LOG 


+4 
3 FUNCTIONAL. DESCRIPTION: 

his routine decides if a 0 pessage is to be written to SYSSERROR.LOG 
(a slave's copy of its SYSSERROR which will be relayed to the master 
process at the end of amet ina? and writes it there if appropriate. 


stem SEQUENCE: 
Called as a SPUTMSG action routine. 


INPUT PARAMETERS: 
O4(AP) Address of a gcring descriptor for the message SPUTMSG 
intends to write 


IMPLICIT INPUTS 
FLAGS(CLIG_M_SLAVE) is on iff we're a slave process. 


OUTPUT PARAMETERS: 
NONE 

tae *' ine 

satay! * CODES: 


contains an odd number so SPUTMSG may write its message 


SIDE EFFECTS: 
Slave's SYSSERROR.LOG written if appropriate 


i ee ee ee ed ed ed od od od 
DIV IYVOOOAOAOOOOOOOOOAOAOAOAAAOAOOAOAOOOOAOOOOOOOOO 
OOO MN H MMMM MM MMMM Mm Mmmm ci ericnicnieviyevyeviycvieveenicvievieviyeviecvieveevievee vere ry 
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nat nh ni i a in i a ht a as a 1 ss as 1 1 2s a ss Ss 
SARA AA APRA AAA MAA BE AAA AA AA AAO 


SODNAWNE AN SO ONAN E WO OD NOUS WH OOONOUS LOO 


SE_COPY: 
0000 «WORD “M<> 
24 0024'CF = os BBC #CLIG_V_SLAVE,FLAGS,10$ ; Skip this if we're the master node 
1E 00246'CF 2 €0 BBS #CLIG_V-SE DEAD, FLAGS, 108 ; Also skip if we can't write to log 
0 O04 AC 00 MOVL O4(APT,RO ~ ; Point to the message buffer desc 
1502°cCF 60 80 MOVW (RO),SE_RAB+RABSW_RSZ : Set up the message size... 
1508°CF 04 A0 00 MOVL  4(ROS,SE_RAB+RABSC_RBF ; ...and address 
$PUT RAB = SE-RAB ; Write the message 
tie ERR = RMS_ERROR 
50 6(01 00 nove #1,R0 ; Supply an exit status for SPUTMSG 


he oe. -e 
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191 178 a -SBTTL RMS Error Handler 
1010 317% : FUNCTIONAL DESCRIPTION: 
131 12? 3 This routine handles error returns from RMS calls. 
1D1 158 : CALLING SEQUENCE: 
1! 178 3 Called by RMS when a file processing error is found. 
1D10 3180 : INPUT PARAMETERS: 
11 ! 1 2 The FAB or RAB associated with the RMS call. 
1p $ : IMPLICIT. INPUTS: 
1D10 3185 : 
1D1 1 $ ; OUTPUT PARAMETERS: 
101 1 3 NONE 
1D1 1 3 3 
11 } H 3 wre 
1010 3191 : 
1b10 135 3 settalic CODES: 
1D10 3194: 
1D1 195 ; SIDE EFFECTS: 
101 138 3 Error message 
1b1 198 ; 
1010 3199 ° 
101 0 RMS_ERROR: 
OFFC } $ 1 «WORD “M<R2,R3,R4,R5,R6,R7,RB,R9I,R10,R11> ; Entry mask 
56 O4A DO 101 ; MOVL 4CAP) ,R6 ; See whether we're dealing with... 
6 03 91 1D16 4 CMPB «= #F ABSC_BID,FABSB_BID(R6) : ...a FAB or a RAB 
1 12 101 5 BNEQ 10$ ; BR if it's a RAB 
57 Quip’ ge +3 1D1 $ MOVAL FILE,R7 ; FAB-specific code: text string... 
8 56 DO 1D p MOVL R6,R8 : ...address of FAB... 
OC A6 «DD «(1D 08 PUSHL FABSL_STV(R6) > ...STV field for error... 
08 A6 DD 1D 3 PUSHL FABSL_STS(R6) 3 ...and STS field for error 
OF 11 1 : 19 108 20 ; FAB and RAB share other code 
57 0129°CF DE 1D : 1 " MOVAL ~—s« RECORD, R7 ; RAB-specific code: text string... 
58 C A6 «600 «OD 1 MOVL RABSL_FAB(RG) ,RB ; ...address of associated FAB... 
A6 DD 1034 14 PUSHL RABSL_STV(R6) ; «STV field for error... 
08 A6 DD 1 i tg 208 PUSHL RABSL_STS(R6) 3; «and STS field for error 
1430'CEF 1D3A 321 " MOVAL ~—sSE_FAB, RO : Check to see... 
” 58 , ¢ 4 1D3F 13 CMPL aOcne 3 .eeif the error was in SYSSERROR.LOG 
8 1 Ho 1 BNEQ ; BR if it was not 
0024'CF 4 C 1026 y 303 BISL2 #CLIG_M_SE_DEAD,FLAGS ; Prevent endless loop trying to log it 
5A 34 AB 9A 1049 § : MOVZBL FABSB_FNS(RB),R10 ; Get the file name size 
1D4D SFAO_S CTRSTR = RMS_ERR STRING,- ; Common code, prepare error msg... 
1D4D 4 OUTLEN = BUFFER _PTR,- 
1040 5 QUIBUF = FAO_BUF,- 
Ss oe 
1D4D 5 P = R16,- 
1D4D 8 P = FABSL_FNA(R8) 


TC VAX/VMS UETP S}aster Integration test 16-SEP-1984 00:19:0 AX/VMS Macro V04- Pa 77 
vi dhe RMS Error Handler ° gree obe 98: d0:47 LOE TP SY SRETUET EL 1000.MAR: 1 att (42) 


8 y F DF 1067 PUSHAL oye R oe 3 ces 
O00F F DD 10 PUSHL F990) H 

41132 8F DD 1D PUSHL mere Ng LEE A ga ERROR ; ;. and arguments for ERROR_SIGNAL 
1DAD' CF 5 s +444 CALLS ERROR_S ; Give the message 


SS$_CONTROLC-= 
STSSK SUCCESS #STSSK _WARNING>,- 


OO28'CF OFFFFFFF'SF EXIT 
SEXIT_S CODE™= exit STATUS ; Terminate program cleanly 


TCL1GOO0 VAX/VMS UETP Cluster Integration ‘3 16-SEP-1984 70 AX/VMS v04- Page 7 
Ye acbo CTRL/C Handler ° mists 7 98:8 :03 fOETPSY. ee eee yer 1c00.MAR: 1 ° AS 
1D7D 5 -SBTTL CTRL/C Handler 
p50 § 34+ 
1920 3; FUNCTIONAL DESCRIPTION: 
1328 $ : This routine handles CTRL/C AST’s 
1070 40 ; CALLING FROuENCE: 
1078 a4 3 Called via AST 
1D7D rk : INPUT PARAMETERS: 
1D7D 44 ; NONE 
1D7D 45 ; 
1D7D ¢$ 3 IMPLICIT INPUTS: 
1D7D 47 ; NONE 
1D7D $3 3 
1D7D 49 ; OUTPUT PARAMETERS: 
1D07D 50 ; NONE 
1D7D ie 
1D7D 26 3 IMPLICIT OUTPUTS: 
1D7D 553 3 NONE 
107D 54; 
1D7D 55 ; COMPLETION CODES: 
1328 2$ 3 SS$_CONTROLC with warning status 
1D7D 38 3; SIDE EFFECTS: 
1D7D 59 ; Control-C message is signalled. 
1D7D 60 ; Program exits. 
1D7D 61 3 
1D7D 66 jee 
1D7D 6 
1D7D 64 CCASTHAND: 
OFFC 13% o2 » WORD “M<CR2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ; Entry mask 
7E 0000‘ 8F 3C «6«1D7F 86 MOVZWL #SS$_CONTROLC,-(SP) 
00 DD 1D84 68 PUSHL #0 ; Indicate an abnormal termination 
0000' CF DF 1086 +4 PUSHAL PROCESS_NAME bose 
DD 1D8A 0 PUSHL #2 
007410E0 8F DD 1D 71 PUSHL #UETES AB ABENDD! STS$K _WARNING’ : 
00000000'GF 05 FB 1D us CALLS eee $S L Output the message 
DO 109 7 MOVL #28ts M_INHIB_MSG!- Set the exit status 
1D9A 74 
1D9A 75 
1D9A 7 
1DA2 7 


age 79 
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ERROR_SIGNA 6-S 


1988 79 -SBTTL ERROR_SIGNAL 
1DAD > FUNCTIONAL DESCRIPTION: 
a : This routine prints an error message with the standard UETP error box. 
1DAD 4 : CALLING SEQUENCE: 
1DAD i PUSHL arguments to LIBSSIGNAL 
a § 3 CALLS count of above,ERROR_SIGNAL 
1DAD 8 : INPUT PARAMETERS: 
a S : Arguments to LIBSSIGNAL, as above 
1DAD 34 $ IMPLICIT INPUTS: 
hand 35 : ERROR_COUNT has a cumulative count of errors we've seen 
1DAD 329% : OUTPUT PARAMETERS: 
1282 32 3 NONE 
1DAD 39 : IMPLICIT OUTPUTS: 
1348 3 3 ERROR_COUNT is incremented 
1DAD 0 : COMPLETION CODES: 
ines 1 3 NONE 
1DAD : : SIDE EFFECTS: 
1DAD 4; Message to SYSSOUTPUT and SYSSERROR 
1DAD 53 
1pAD 3309 * 
1DAD ERROR_SIGNAL: 
003C 1pAp 03 «WORD “M<R2,R3,R4,R5> 

1DAF 11 SSETAST_S ENBFLG = #0 ; ASTs can play havoc with messages 

01 DD 1DB8 1 PUSHL #1 3; Assume ASTs were enabled 

50 00° B61 1DBA 1 CMP S“#SS$_WASSET,RO ; Were ASTs enabled? 
02 13 1DBD 14 BEQL 10$ : BR if shey were 
6—E D4 100 1? 108: CLRL (SP) ; Set ASTs to remain disabled 
OO38°CF 04 6C C1 1DC1 i$ F ADOL BR CAR) 0) ARG COUNT ; Get total number of args 
50 4 © ocr 18 LL OCAP) #4, ; Figure its length in bytes... 
oF $5 sé 10¢CB 1 SUBL RO, 3 eeeSO we Can. 

6— 04 AC 50 28 1DC 0 MOVC RO,04(AP), (SP) 3 ...8et up a iist for LIBSSIGNAL 
O34°CF D6 1DD§ 1 INCL ERROR_COUN NT ; Keep running error count 
034'°CF DD 1DD § PUSHL ERROR COUNT ; Finish off arg List... 

90010002 SF bb DoF $394 PUSHY PEKTOOOS. ke 
4 O98 et DD 1DE5 5 PUSHL Aue TPS ERBOXPROE | STSSK _ERR ROR *gs for error box message 
00000000'GF  0038'CF FB 1DEB $ CALLS ARG_COONT,G*LIBSSIGNAL™ ; Truly 'b tch 
01 BA 1DF4 # * : he "er enable 
a 1DF6 8 SSETAST. S ENBFLG = RO : ...to its aranelene “situation 


. J.}g00 


0038'CF 


13 0024°CF 03 


0028' CF 


007410 oF 
0088 cr 
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; IMPLICIT 
; ERROR_COUNT has a cumulative count of errors we've seen 


; OUTPUT PARAMETERS: 
; IMPLICIT 

ERROR_COUNT is incremented 
; COMPLETIO 


NOAA AN 9 OS OO NIA UE WIN OOO NAME WIN OOD NAME WWI 0 OO NAME WH OOONOUS 


COO909 0909 6909 69 SIN NIN NSN SDD DD DAA AD TTT BB PPLE 


ta Cluster Integration bet 1oree 


-SBTTL Error Exit 


3 ++ 
‘ : aah DESCRIPTION: 


P=1984 
P~1984 


Bios? 


AX/VMS Macro v04-0 Page 
SREIUEYCLIg00.MaR:1 2% (89) 


UETPSY. 


is routine prints an error message and exits. 


CALLING $ 
MOV 


EQUENCE: 


OVx error status value,EXIT_STATUS 
PUSHx error specific information on the stack 


PUSHL current argument count 


; INPUT PAR 


ERROR_EXIT 


AMETERS: 


Arguments to LIBSSIGNAL, as above 


INPUTS: 


Message to SYSSOUTPUT and SYSSERROR 


OUTPUTS: 


N CODES: 


UETP$_ABENDD with error status as a default 


; SIDE EFFE : 
Program exits 


RROR_EXIT: 


CTS: 


SSETAST_S ENBFLG = # 


10$: 


#CLIG 
SPUTMSG_S MSG 
ACTRIN = SE_COP 


0 
V_BEGINMSG,FLAGS,10$ ; 
NNOUNCE ,~ : 


Vet = CLIGA 


: ASTs ¢ 
bs ; BR 
Giv 


an play havoc with messages 
if “‘begin’’ msg already 
e a beginning message 


tal # args. pop partial count 


ADDL3 (SP)+,#8,ARG_COUNT ; Get to 
INCL ERROR_COUNT ; Keep running error count 
PUSHL 3; Push the time parameter 
PUSHAL eure Ss NAME ; Push test name... 
PUSHL #*XxF0002 > «..aPg count... 
PUSHL #UETP$ _ABENDD!STSSK_ERROR ; ...and signal name 
PUSHL ERROR COUNT ; Finish off arg List... 
PUSHAL NEWNAR DESC Dias 
PUSHL  #*X1000 wr 
PUSHL #UETP$ ERBOXPROC!STSS$K_ERROR 

ARG_COONT 


PUS 


HL 


MOVL SP, 
SPUTMSG_S MSGVEC = (R2),- 
ACTRIN 


TST 
BNE 
MOV 


= SE_COPY 


L §XIT_STATUS 


L #UETPS 
EXIT_ 


ST 


5S cool 
; Keep a 


; Truly b 


3; Did we 


error box message 
geinter to the 


tch 


: exit with an error code? 
. we 
ABENDD!STSSK_ERROR,~ ; Supply a generic one otherwise 


M12 
vlshg™ YAM AET? clnteraneenranton Fest CHEE IRH RIES SHITE ETDS ass" cy] MG 


1F¢9 208: 

1000 8F 6cB8ll] BIS #STSSM_INHIB_MSG,- 3 , i : 

0000. BF if ; i L eT Ay it SG, Don't print messages twice 
1E82 SEXIT_S CODE™= EXIT_STATUS ; Exit in error 


‘a 
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m 


~SBTTL Exit Handler 


93 
1E oe 3+ 
1E 5 3 FUNCTIONAL DESCRIPTION: 
1E 89 5 This routine handles clea ye p at exit. For slave processes, it also 
Hi | ; copies SYSSERROR.LOG file B the master process. 
1E 35 ; CALLING SEQUENCE: 
\e r 9 3 Invoked automatically by SEXIT System Service. 
168 4 : : INPUT PARAMETERS: 
if r 7 ; EXIT_STATUS contains the exit status. 
1E 208 : IMPLICIT INPUTS: 
if 188 5 SYSSERROR.LOG contains all slave messages that have gone to SYSSERROR 
TE 408 : OUTPUT, PARAMETERS : 
1E8D 3410 : 7 
ies ot 3 wetted itatin 
168 418 : 
ite rey ; COMPLET SOs CODES: 
1E8D 3416; 
1E8 419 3; SIDE EFFECTS: 
1€8 418 ; postens announcing the end of the t 
1ee rhs : For slave processes, SYSSERROR. (OG. pit copied to the master. 
1E8D 3421 :-- 
1€8 4 ¢ 
1€8 4 EXIT_HANDLER: 
OFFC Fe r : WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R1I0,R11> ; Entry mask 
1E8 426 SSETSFM_S ENBFLG = #0 :; Turn off System Service failure mode 
1E9 427 SSETAST_S ENBFLG = #0 3; An AST now could confuse us 
00 EF IEA 428 TZV “#STS$V_SEVERITY,- ; Save the proper exit severity... 
03 1EA 429 #STS$S_SEVERITY,- 
50 0028'CF 1EA 430 EXIT_STATUS,RO 
03 50 £9 1EA 431 BLBC RO,10$ : ...aS modified by the need to see... 
50 03 00 ee ? ¢ 108: MOVL #STSSk_ INFO,RO 3 «.-0ur message go into SYSSERROR 
” oponteree % cf ifBs t é piste Hi etits getty F - 3 ...and use it in our message code 
1EBA r § SPUTMSG_S RSGueC = = CLIG_ANNOUNCE,- ; Output the ending message 
1ECD 2 S BBCW #CLIG_V "SLAVE? TFLAGS.40$ ; Skip this if we're the master proc 
1ED® £29 ; Send our logged copy of SYSSERROR to the master process. 
TED6 44g ' SREWIND RAB = SE_R ; Set up to relay non-success msgs 
26 954 43 133 rr nove ERRORLOG Eh nsf > Set up convenience registers... 
Onag oF 02 AA 6A 2 1EE 445 aR nD) 2 Cai 0) ete Peurk eh: Set i” message preamble 
4 oie 8F A A ier +68 SUBW (R10) Aste stare R4 F igure Length of buffer remaining 
1504'CF $$ 4 1EF 44 MOVL R3,SE_R up RAB to automatically... 
1500°CF 4 68 Ero ret ‘ MOVW R4,SE~ “RABSRABSUT “87 : sates Bm BD data with preamble 


B 13 
-SEP- 219: /VMS Macro V04-0 Page 83 
v ibs? tit Hendler rpemeince  cepipeadine nse to ~$FEr} 383 93: b0:47 LOE TPSY. SREIUETCL 1600. MAR: 1 (46) 
; . If messages are out of synch, this will 
if d , ; cous ‘che master to chine’? got a “garbled message’, and the only messages 
1F 452 ; it will attempt to read after that will be further ERRORLOG messages. I 
1F & : ; also means that the first real ERRORLOG message w}t not Fgh bends, 
if $22 ; @ ‘garbled’ message. The master knows enough to ignore empty ges. 
+ f h 
65 54 00 00 8F 00 2 4 £28 0S: MOVCS #0,#0,#0,R4,(R3) ; Clear out og tras ; 
‘ ; Define the type of message we wan 
F8F2 CF of PB if H 139 CALLS 3 AVE_EXIT_WRITE ; poye a message to the master 
- 30 5? if res MOVES ; ‘a +40 - : Clear out miscellaneous trash 
salon Sooree 1F1 i8e SE ERAB+RABS\ USZ ~ 
sgéaloa iFIe rhe $GET te eer 5 ; Get the next non-success message 
if : 465 BLBS = =RO,208 ~ ; Loop to write next msg if all is weil 
BB ar Fe 46 CMPL #RASS$_EOF RO ; Have we finished copying? 
eee ae eee 169 BEQL Oe ray ; BR if so - send ending pessege 
ooco'cr 8 if 468 MOVC3) PLEASE_CHECK_MSG,- ; We have trouble with SYSSERROR.LOG... 
09D5'CF 1F39 3469 PLEASE CHECK_MSG+8,- 
dod 4 DD IESE re PUSHL . Seceeas 
F8BC CF O11 FB yd tts 308: CALLS #1,SLAVE_EXIT_WRITE 3; «--do our best to pass esa 
: - ; rres 
00 02 ae aa 9 2c re are MOVCS £88) C89? 80-= ; Insert our last message & clea 
_ DD ifs 133 PUSHL R SSAGE BUFFER ; Send a Line to say that we're done 
eee ee eee ifep 13 SCLOSE fA ste -Fag ee ; Clean up after ourself 
iF 480 SERASE FAB = SE_FAB ; Clean up after ourself 
1F6E 3481 40S: 
4 SSETPRN_S PRCNAM = CURNAM_DESC ; Reset our process name 
04 1F79 48s RET ; That's all folks! 
1FPA 3485 END UVETCLIGOO 
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NO_NODE_MSG 
NO_NODE-MSG_PTR 


OPA 
OTHERNODE_ITMLST 
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ATE 
PLEASE _CHECK_MSG 
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QUAD_ STATUS 
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tty -5tS 


RABSW-USZ 
READ_FAILED 
READ -MSG 
REBEC_MSG 
REBEL -MSG_PTR 
RECORD 

REPORT 

RESULT _FILESPEC 
RF -FILESPEC 

RF -FILESPEC_DESC 
RF NAM 


RMS$_FACILITY 

RMS$_RAB 

RMS_ERROR 

RMS" ERR_STRING 

Set UP_ SLAVE 
€_CopY 

SE “FAB 

SE_FILESPEC 

E-NAM 


RAB 
SHARE_ACCESS 
HOR 


SHR$_TEXT 
SLAVE_EXIT Waite 
SLAVE_EXT_FAI 
SLAVE_NO KCCES s 
SLAVE-Qi0 DELTA 


SS$_NOTQUEUED 
SS$_NOTRAN 

SS$_ SSAC 
SS$-WASSET 
SSERROR 
SS_SYNCH_EFN 
START_TACKING 
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! Psect synopsis ! 


terre ee eee een we wat 


PSECT name Allocation PSECT No. Attributes 
ABS. 0 68 ( -) 00 ¢ QO.) NOPIC USR CON S LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00 ¢ -») O01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
RODATA 1C ( 3612.) ¢ ( ¢°} NOPIC USR CON REL LCL NOSHR NOEXE RD WNOWRT NOVEC PAGE 
RWDATA 191D (¢ 6429.) ( 3.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC PAGE 
SRMSNAM 8880000 ( 13-3 4 ( 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
UE TPSCODE F7A ( 8058.) 05 ¢ 5.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC PAGE 
prec aemm oom moron erento ae 
! Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization :] 08 +80 300-08 0:00:00.85 
Command processing 153 0:00:00.79 Hh 4. 
Pass 872 00:00:4 “ef 0:01:15. 
Symbol table sort 00: 8:9 e Op 180! 6.4 
Pass 2 53 00:0 Ma'8 0:00:21.30 
Symbol table output :00:00. 00:00: ie 
Psect synopsis output : 8 Oa'8 00:00:00.0 
Cross-reference output 0 0:00:00.00 00:00:00.00 
Assembler run totals 1600 00:00:56.80 00:01:48.74 


The vert tes set ~ was 2000 pages. 
635 bytes (465 pages) of virtual memory were used to buffer the intermediate code. 

There were 120 pages of symbol table space allocated to hold 2079 non-local and 164 Local symbols. 
5 source Lines were read in Pass 1, produc ing 63 object records in Pass 2. 

pages of virtual memory were used to define 78 macros. 


+ + 
: Macro Library statistics ! 


SOR PE See Ree ee eS + 


Macro library name Macros defined 
_$255$DUA28: SHRLIBIUETP.MLB: | 2 
“$ 3 SDUAZB: S¥S-OBJJL1B-MLB: 1 é 
$255$DUA28:(SYSLIBJSTARLET.MLB;2 6 
TOTALS (all Libraries) 67 


2438 GETS were required to define 67 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:UVETCLIGOO/O0BJ=0BJ$:UETCLIGOO MSRC$:UETCLIGOO/UPDATE=(ENH$:UETCLIGOO) +EXECML$/LIB+SHRLIBS$:UETP/LIB 
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